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A new generation of Color Computer products 




V-Term Terminal 

-Vax, Unix, Mainframe, and BBS systems 

Vt-52, Vidtex, and Ascti emulations 
-Works with EM ACS and VI full screen editors 
-Full 23x80 screen, 123 ASCII characters 
-High-Res graphics. Monochrome support 
♦Serial port to 2400, RS-232 to 19,200 baud 
-DCModem Pak and Disto controller support 
-XModem, XModem-CRC, YModem, & ASCII 
-File transfers direct to disk or memory 
-15 entry autodial, 10 programmable macros 
-35/40/80 Tracks, Hyper I/O & RGBDOS ' 
Disk (123k or 512k CoCo 3 only) .... $39.95 



Telepak II 

A Truly Compatible RS-232 Interface! 
Telepak II answers the demand for an 
RS-232 interface. It comes with a 3 
foot DB25 cable, gold edge contacts and 
is built with low power drain <5v) 
components. Works on all CoCo 1,2, or 3. 
MP1 or Y-Cable required on disk systems. 
Telepak & Manual !«9.95 

Y-Cables 

V-TERM + Telepak .,$79 Gold contact Y-Cables ............. $27.95 




Turbo 512k Ram 

-Fully assembled and tested board 
-Premium 120ns 256x1 memory chips 
-Easy to follow instructions 
•Fast and easy installation 
-Complete with 512k software 
-RamDisk, RamTest, & Print Spooler 



512k board w/software 
0k board w/software 



$108.95 
$34.95 




512k + Studio Works $155 



Studio Works 

A digital audio sampler second 
to none! Full point & click. 
Includes reverse, delete, copy, 
volume control, play block, 
sequencer, envelope shape, key 
play, play thru, looping & file 
compression. Samples 17k/sec. 
Works with Maxsound cable! 
W/O cable - $38.95 W/cable • $53.95 



Warrior King $29.95 

Kung~Fu Dude $24.95 
In Quest of theStarlardtztM 
Bint sheet for Starlord $3.95 
Pyramur .................. ... $19.95 

'$W^fhe--Ktttg 1 2 or 3 $29.95 

Dragon Blade ...... .... . $19.95 

White Fire (^Me 
Paladin's Legacy ..... $24.95 

* CoCo 3 only 

Multi-Label 127 Version 2.00 

This latest version of Multi-Label III 
now prints labels one, two or three 
across! Comes configured for most 
Tandy and Epson printers $16.95 
Upgrades to Version 2.00 .. $6.95 

Fkeys HI <a>co 1,2, 3) $19.95 

Easy to use, DOS mods, 20 function keys 

Sixdrive <coco 1,2, 3) $16.95 

Use up to 3 d/s drives as 0,1 2,3 4,5. 

Toll Free 

Free 2ND AIR from Midwest to California 
Orders: 9am to 9pm Eastern time 
On-line orders: Delphi's CoCo Sig 
Inquiries & technical assistance: 7pm to 9pm: 



Games 




Kyum-Gai: to be Ninja 

As the Ninja Gai-Dan, you must 
find and destroy evil forces, use 
a multitude of martial arts moves 
to defeat your enemies, obtain 
treasures & weapons, and evade 
obstacles! Kyum-Gai: to be Ninja 
uses the most detailed 320x200, 
1 6 color graphics, the highest 
quality digital sound effects and 
spectacular animation! 

CoCo 3, disk, & joystick $29.95 




MPI-CoCo Locking Plates 

This money saving device is now 
available for the CoCo 2 and 3! 
It is important when ordering to 
specify CoCo 2 or 3 and MPI 
26-3024 or 26-3124. Only $7.95 

Suprfile IE (CoCo 3 only) $29.95 
Easy to use, multi-purpose database. 

BidWliter (pc/xt/at only) $49.95 
Create & print professional proposals. 



Order line """"1 



1-S00-441-GIME 



GIMMESOFT 
P.O. Box 421 
Perry Hall, MD 21128 
301-256-7558 



Add $3.00 for shipping and handling 
Add $3.00 for COD (USA only) 
MD residents add 5% sales tax 
VISA/MC/Check/Mooey Order/COD 
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CoCo Clipboard Magazine™ is published bi-monthly (6 times 


Product Reviews: 






a year) by: 






CoCo Clipboard Magazine 
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Puppo's IBM Keyboard Adapter 
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NO PORTION OF THIS MAGAZINE OR CLIPDISK MAY 
BE REPRODUCED, BY ANY MEANS INCLUDING BBS 


CRC Floppy Drive Controller 
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OF THE PUBLISHER. 
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registered trademark of CompuServe, Inc. 






All programs, information and articles are distributed on an 
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"as is" basis without any warranty of any kind whatsoever. 








CoCo Clipboard, The Clipboard, Clipboard BBS Systems, 
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"Clipper Koala," ClipDisk and Clipboard Convo are 


"Glad You Asked" - RGB Monitor Fix by Bob Gauit 






trademarks of CoCo Clipboard Magazine. 
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Subscriptions to CoCo Clipboard Magazine are: 


"Downtime" hv Rush CaW 






$15.00 US. Funds per year for 6 issues. 


page 




$28.00 U.S. Funds for 12 issues. We accept checks or money 




orders only. Canadian subscriptions are $18.00 in U.S. Funds. 








All overseas subscriptions are $27.00 US. Funds surface mail. 
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ClipDisk Ordering 
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3742 US. 20, Box 3 
Fredonia, N.Y 14063 


Clipboard Coupons 
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Full refund after one issue. No refunds after two issues. 


Clipboard Subscriptions 
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Your comments and suggestions are welcome. We reserve the 








right to edit and publish ail letters received unless requested 









not to by the writer. 

PLEASE NOTE: Subscription orders received AFTER the first 
week of a publication month will begin with the NEXT 
ISSUE. We cannot start subscriptions with back issues. 



We Now Accept 



For Your Subscription 
and ClipDisk Orders 

(7 1 6) 679-0 1 26 9 am to 9 pm Eastern 
Monday thru Saturday 



As we go to press . . . 

Because of the length of many of our reviews in this issue and 
the very long program listings, Painless OS9, The Assembly Line 
and CoCo TV Amateur Radio columns will not appear in this issue. 
They will return next issue. 

We also are announcing an immediate price increase for 
subscriptions and back issues. Continuing price increases for 
everything from postage and printing to envelopes and labels have 
forced us to raise these prices. ClipDisk however will not rise in 
price. Please see the subscription page for complete details. We regret 
this increase and we appreciate your support 
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Window Master V2.2 

The hottest new program available for the 
Color Computer III! Now you can have 
Windows, Icons, Buttons, Pull-Down Menus, Edit 
Fields and Mouse Functions built into your Basic 
or Machine Language Programs easily and 
quickly, without the need for OS 9. 

It supports up to 31 Windows on the display, 
multiple fonts in 54 possible sizes and styles, 
Enhanced Basic Editing and much more. It adds 
over 50 Commands and Functions to Basic to 
fully support the Point & Click Window System. 
In fact it has so many features it would take 
several pages to to describe them all. 

It is completely compatible with existing Basic 
programs and takes absolutely no memory 
away from Basic, It contains a built in Ram Disk 
which is completely transparent to Basic (512k 
version) for enhanced operation. 

It requires 1 Disk Drive, R.S. Hi-Res Interface & 
Joystick or Mouse, Includes both the 128k & 
512k versions for only $69.95 

Window-Ware 

Window Writer - A Point & Click Word 
Processor, features both Mouse & Keyboard 
type editing, proportional printer support, 
powerful formatting capability, works with any 
printer. Requires Window Master & 512k- 
$59.95 

Window Basic Compiler - A Basic Compiler 
similar to CBASIC only it compiles all the 
Window Basic statements to create super fast 
M.L. programs & Desk Accessory programs for 
Window Master $99.00 
Window RPTVASM- A full featured 
Editor/Assembler and Debugger for the Window 
Master System $49.95 
Font/Icon Editors - A utility disk with the 
Font & Icon Editors so you can edit or create 
your own, includes Basic & M.L. versions $19.95 
Advanced Programmers Guide - A 
manual for the Advanced Basic & M.L. 
Programmer with information on interfacing to 
Window Masters complete system including 
System Calls, Memory Map, Interrupt handling 
& Extended Memory access. $24.95 

512K RAM UPGRADk 

Give your COCO 3 all the power it deserves with 
this easy to install (no soldering/plug in) 100% 
Tandy compatible 512K memory upgrade. 
Completely assembled and tested. Includes 
Ramdisk & Memory Test software described 
below, $159.95, Upgrade + Window Master $199 

512K RAMDISK & TESTER 

RAMDISK is an ALL Machine Language 
program that will give you 2 ULTRA High Speed 
Ram Disks in you CoCo-3. It does not need or 
require the OS -9 operating system. It works 
with R.S. DOS V1.0 or Vl.l and it is completely 
compatible with Enhanced Color Disk Basicl Plus 
it allows your CoCo-3 to run at double speed all 
the time even for floppy disk access!!! It will not 
disappear when you press reset like some other 
ramdisk programs. The MEMORY tester is a fast 
ML program to test the 512K ram. It performs 
several bit tests as well as an address test so you 
know that your 512K of memory is working 
perfectly. 

Requires 512K & Disk $19.95 



CBASIC Editor/Compiler 

The ULTIMATE Color 
Computer BASIC COMPILER!!! 

If you want to write fast efficient machine 
language programs and you don't want to spend 
the next few years trying to learn how to write 
them in Assembly language or with a cheap 
compiler, then CBASIC is the answer!!! 

CBASIC is the only fully integrated Basic 
Compiler and Program Editing System available 
for the Color Computer. It will allow you to take 
full advantage of all the capabilities available in 
your CoCo without having to spend years 
trying to learn assembly language 
programming. CBASIC allows you to create, edit 
and convert programs from a language you are 
already familiar with Enhanced Disk Color Basic, 
into fast efficient machine language programs 
easily and quickly. 

CBASIC supports all the enhanced hardware 
available in the CoCo 2 & 3, including Hi-Res 
Graphics, & Screen displays, Extended Memory 
and Interrupts. We even added advanced 
commands not available in Basic to give you a 
level of control only available to very advanced 
Machine Language Programmers. Plus we made 
it exceptionally easy to use, not like some other 
compilers. CBASIC is the friendliest and easiest 
compiler available for the Color Computer. 

CBASIC is a powerful tool for the Beginner as 
well as the Advanced Basic or Machine Language 
programmer. CBASIC features well over 150 
Compiled Basjc Commands and Functions that 
fully support Disk Sequential and Direct access 
files, Tape, Printer and Screen I/O. It supports 
ALL the High and Low Resolution Graphics, 
Sound, Play and String Operations available in 
Enhanced Color Basic, including Graphics H/GET, 
H/Put, H/Play and H/DRAW, all with 99.9% 
syntax compatibility. 

CBASIC makes full use of the powerful and 
flexible GIMI chip in the Color Computer 3. It 
will fully utilize the 128K of RAM available and 
install 2 Ultra Fast Ramdisks if 512K is available, 
for program Creation, Editing and Compilation. 
You can easily access all 512K of memory in a 
Compiled program thru several extended 
memory commands that can access it in 32K or 
8K blocks and single or double bytes. 

CBASIC has its own completely integrated 
Basic Program Editor which allows you to load, 
edit or create programs for the compiler. It is a 
full featured editor designed specifically for 
writing Basic programs. It has block move and 
copy, program renumbering, automatic line 
number generation, screen editing, printer 
control and much more. 

Coco 1,2 or 3 Disk $149.00 



To order products by mail, send check or 
money order for the amount of purchase, plus 
$3,00 for shipping & handling to the address 
below. 

To order by VISA, MASTERCARD or COD call us 
at (702) 452-0632 
(Monday thru Saturday, 8am to 5pm PST). 

CER-COMP Ltd. 
5566 Ricochet Avenue 
Las Vegas, Nevada 89110 
702-452-0632 



DataPack III Plus Vl.l 

SUPER SMART TERMINAL PROGRAM 
A UTOPIL OTand AUTO-LOG Command Processors 
X-MODEM DIRECT DISK FILE TRANSFER 
VT.lOO & VT-S2 TERMINAL EMULATION 
No lost data even at 2400 Baud on the Serial port. 

8 Selectable Display Formats, 32/40/64/80 columns 
ASCH & BINARY disk file transfer via XMODEM 
Directly record receive data (Data Logging). 
VT-100 emulation for VAX, UNIX and other systems. 
YT-100/52 cursor keys .position,, PF & Alt. Kbd. keys. 
Programmable Word Length, Parity, Stop Bits . 
Complete Full and Half Duplex operation, 
Send full 128 character set from Keyboard 
Complete Editor, Insert, Delete, Change or Add. 

9 Variable length, Programmable Macro Key buffers. 
Programmable Printer rates from 110 to 9600 Baud. 

Send Files from the Buffer, Macro Keys or Disk. 
Display or Print the contents of the 50k Buffer. 
Freeze Display & Review information On line. 
Built in Command Menu (Help) Display. 
Built in 2 Drive RAMDISK for 512K RAM. 
Supports: R. S. Modem-Pak & Deluxe RS-232 Pak. 

Coco 1, 2 or 3 Disk - $59.95 

"The SOURCE" 

DISASSEMBLER & SOURCE 
CODE GENERATOR 

The SOURCE will allow you to easily & quickly 
Disassemble Color Computer machine language 
programs Directly from Disk and generate 
beautiful, Assembler Source code. 

• Automatic label generation. 

• Allows specifying FCB, FDB and FCC areas. 

• Disassemble programs Directly from disk. 

• Automatically locates address. 

• Output listings to the Printer, Screen or both. 

• Generates Assembler source directly to disk. 

• Built in Hex/Ascii dump/display. 

• 8 Selectable Display formats 32/40/64/80 . 

• Selectable Foreground & Background colors. 

• Built in Disk Directory an Kill file commands. 

• Menu display with single key commands. 

• Written in Ultra Fast Machine Language. 

Coco 1, 2 or 3 Disk $49.95 

EDTIASM III 

DISK EDITOR ASSEMBLER 

EDT/ASM III is a Disk based co-resident Text 
Editor & Assembler. It is designed to take 
advantage of the new features available in the 
CoCo-3 with either 128K or 512K of memory. 
It has 8 display formats from 32/40/64/80 
columns. There is also a free standing ML Debug 
Monitor. 

EDT/ASM III has the most powerful, easy to use 
Text Editor available in any Editor/Assembler 
package for the Color Computer. 

• Local and Global string search and/or replace. 

• Full Screen line editing . 

• Easy to use Single key editing commands. 

• Load & Save standard ASCII formatted files. 

• Block Move & Copy, Insert, Delete, Overtype. 

• Create and Edit files larger than memory. 
The Assembler features include: 

• Supports Conditional IF/THEN/ELSE assembly. 

• Supports Disk Library file up to 9 levels deep. 

• Supports standard Motorola directives. 

• Allows multiple values in FCB & FDB directives 

• Allows assembly from the Buffer, Disk or both. 

Coco 1, 2 or 3 Disk $59.95 



From The Desk Of . . . 

Ted and Darlene Paul 



Can you believe it! ! ! We have completed 
two full years of publication and are ready 
to charge right into year three! Oh, I 
know we've been a little late now and then 
but we got them all written, pasted up and 
in the mail. This issue is our second An- 
niversary edition and marks the start of 
our third year. 

Over the last several issues I have 
mentioned some announcements that I had 
planned on making for this edition. As 
"fate" would have it none of the projects 
have finalized and therefore I can't say 
anything with a 100% guarantee they will 
all happen. We are looking at the fol- 
lowing : 

1 . A special section on OS-9 in French for 
our subscribers in French speaking Canada. 

2. Typesetting for most of the magazine. 
No, we have not recently aquired a network 
of Tandy MS-DOS machines which interface 
with our in house typesetter. One reason is 
cost. Those machines and the software 
needed to run them costs a LOT of money. 
You either absorb the cost or you raise 
your ad rates, subscription rates or both. 
Or you could cut your production costs by 
cutting pages. Our plan, if all falls into 
place will let us prepare our ASCII files, 
convert them to an MS-DOS format and send 
them to our printer. They will then process 
them through their typesetter returning the 
finsihed "galley strips" to us for final 
paste up. When it happens you'll know! 

3. We will begin exporting CoCo Clipboard 
to Blaxland Computer Ltd. in Australia. 
According to their information, Australia 
has NO magazine for the CoCo produced in 
that country. We currently have subscribers 
"down under" as other magazines do. How- 
ever no magazine is publishing an "Aussie" 
edition. Proposals, and counter proposals 
are involved and we hope to have bulk mag- 
azines to Blaxland by the end of October. 

4. We are also starting to work on a more 
uniform format for page layout for the mag- 
azine. Without going into complex detail, 
we think we have hit on a clean, yet 
attractive system. Hopefully you won't 
notice it, but just as hopefully the 
magazine will become easier to read. 



This edition features several inter- 
esting programs and articles. Rush Caley is 
finally back with his always wry humor and 
insight. Randy starts to wrap up the Start 
OS-9 column and we will be moving to a new 
column on Pascal very soon. T.C.E. is still 
providing the DEFT Pascal series and we 
will be using this software as our base. 
Mike Dooley is back with a hardware project 
and Bob Gault will get you RGB Monitor 
tuned up. We've got some very good in depth 
reviews as well and more product continues 
to arrive each day. 

Speaking of new developments in and 
around the CoCo world you'll be surprised 
to hear that .... 

There is now a version of OS9 for the 
MAC . . . 



Microware has announced OS9 for IBM style 
PC's 

Kevin Darling and Tony DeStefeno have pro- 
totyped a CoCo 3 with a full meg of RAM. By 
the time you read this Tony should be 
showing off the unit somewhere in New 
Jersey - possibly taking orders. 

What does all this mean? Well, we've got 
people looking into the various new ver- 
sions of OS9 to see what if any 
implications there may be for CoCo users. 
If, and it's that usual BIG if, IBM PC type 
computers start using OS9 as an operating 
system we might see versions of various 
high end programs available for the CoCo. 
Now don't start asking when they will be 
available, I didn't say that. What is in- 
teresting to note though is that IBM's 
highly touted OS/2 operating system doesn't 
seem to be catching on real fast - and 
neither does Micro-Channel. After being out 
for well over a year I haven't seen either 
the OS or the Micro Channel type computers 
taking the wide personnel computer market 
by storm. 

What I am saying is that perhaps, just 
maybe somebody has figured out that when 
you make OS9 or a derivitive of it operate 
your IBM type computer, it then becomes a 
"real" computer. If that is so, then 
perhaps we might see LOTUS 1-2-3 or Aldus 

From The Desk continued on 39 
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Dear Editor: 

I just received 3 of the 6 back issues I 
ordered, as well as subscribing. Being ac- 
customed to "Rainbow", I found your re- 
cent articles excellent (like Rainbow 
also), especially the Hard Drive Software 
review in the March / April '89, I also 
want the Sept,/ Oct, '87 issue where 
DeStafeno looked at CoCo hard drives; Also, 
I'm looking for Rush Caley wko wrote the 
CoCo - M100 data exchange article in the 
Nov, / Dec. issue. 

Thanks, 

Dale Hawley, 
Seattle, WA. 



Dear Dale: 

Glad you've been enjoying the articles 
in Clipboard, Rush Caley returns in this 
edition of the magazine. Jim DeStafeno has 
two more hardware reviews in this issue* 



Dear Ted : 

What can I say? "Thank you" seems far 
less than adequate to express our gratitude 
to you for your May 26th. visit to The 
Penn- Jersey Color Computer Club. However, 
on behalf of the club membership, thank 
you. 

Your presentation was excellent and very 
well received. I know that you made many 
friends among our membership. You represent 
your fine publication with appropriate en- 
thusiasm. The meeting was one of the high- 
lights of the year. 

Cordially, yours, 

Peter Unks 
Phillipsburg, PA 



happy to 
anywhere 
That in- 



is that long ride across the PA Pike 
it's always raining! This gives me a chance 
to mention to our other readers that CoCo 
Clipboard "travels!" We will be 
visit your local club meeting 
within 500 miles of Buffalo, NY. 
eludes a big area folks and if you're 505 
that's ok! Please give us our office a call 
for complete details and arrangements. And 
by the way there is never a charge to your 
club. 



Dear Ted & Darlene: 

I have been subscribing to your magazine 
for a couple of months now. I find most of 
the articles interesting and informative, 
in particular the articles about OS-9. 

I would also like to comment on your ap- 
parent policy of putting down the Rainbow 
Magazine every chance you get. Yes, their 
magazine does run a lot of articles for be- 
ginners, as well as games. However, they 
are currently serving a much different mar- 
ket than you are. They are much more widely 
distributed than you are, and have been 
around a lot longer. 

I think it would be a bad idea for your 
magazine to get involved in a mutual hate 
war with Rainbow. The CoCo community has 
for many years been founded on mutual as- 
sistance, and one of the biggest plusses 
that I have found is the wide variety of 
people and experiences available. 

I currently subscribe to both magazines 
and plan to continue to do so for the fore- 
seeable future. However I would prefer to 
continue receiving the Rainbow 
Clipboard an not the Rainbow 
Enquirer. > 



and 
and 



CoCo 
CoCo 



Sincerely, 

Colin McKay 
Ottawa, Ontario 



Dear Colin: 



Dear Peter: 

We have been richly blessed during our 
visits to your area of Eastern Pennsylvania 
and New Jersey. I guess the only drawback 



I published your letter because I real- 
ize that our readers should have a forum to 
make their views known. When I wrote my 

Reader Mail continued on 7 
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CoCo Clipboard Magazine 



Reader Mail continued from f* 
column mentioning that "other" magazine it 
was in response to their indirect mention 
of Clipboard. Unfortunately part of what 
they said was based in part on some mis- 
information they received. The details at 
this point in time don't really matter. I 
tried to answer their somewhat negative 
mention of us in a more positive tone - 
even trying to add a bit of humor. A very 
few people misinterpreted what I was trying 
to say. 

The publication of the letter in the 
"Reader Mail" section was one of those de- 
cisions that was made because of the reason 
I published your letter, people need to 
know they have a forum to speak their mind. 
Anyway, if anybody is looking for a 
Hat field-McCoy shoot out between Rainbow 
and Clipboard won't find it here. Oh, I'm 
sure we will take some pokes at each other 
from time to time but as far as a war 
nope . 



(The following letter has been edited) 
Dear Ted & Darlene: 



Clipboard, Vol. 2 Issue 5 and 6. 

Also, congratulations on the birth of 
your fourth child! Was it a boy or a girl? 
What is his or her name? 

I really got a lot out of your 
editorial, "Seize the Day - Carpe Diem". I 
know that you as a magazine, have in- 
fluenced my life. I like to read, and I es- 
pecially like to read Color Computer mag- 
azines and books. 

I thought about everything I do and won- 
dered if it affected any other lives be- 
sides my own. I am a volunteer at our local 
elementary school two days a week. I am 
also a hemodialysis (artificial kidney) 
patient. I thought about my relationships 
with the nurses and other patients at the 
hospital. I try to make a difference in 
their lives ... remembering names, being 
friendly ... my parents and I have become 
the unofficial Welcome Wagon for new pa- 
tients at the unit. I also play the piano 
at church each Sunday. I usually play along 
with the organist, but sometimes alone (not 
really alone!) I like to think that 
my music has an effect on the listeners and 
possibly a difference in their lives.... 



Thank you for sending the copies of CoCo Sincerely, 



"Simply Better" Word Processor 

♦RUN 2 INTERACTING WORD PROCESSORS SIMULTANEOUSLY ' 
PERFORM MAIL-MERGES * CREATE INDEXES * CREATE TABLE OF 
CONTENTS * PRINT-FILL FORMS * DISPLAYS FONTS IN SELECTED 
COLORS * DISPLAYS UNDERLINING * PRINT SPOOLING * AUTO SAVES 
FILES # SERIA17PARALLEL OUTPUT * PRINT/SAVE BLOCKS OF TEXT * 
HEARING IMPAIRED MODE * UP TO 480K OF TEXT STORAGE * SORT 
SECTIONS OF TEXT * MANY MORE FEATURES * 

. . An excellent choice at an 
unbelievable price. " 
— Rainbow Magazine 

(fiS* Special Intro Price... $29^ 



SEE REVIEW AND ARTICLE IN 
APRIL '89 RAINBOW, SEE WHY . . 



When It Comes To Word Processing, 

we're... "Simply Better" 



Call for a Free Brochure 
All Orders, Call... 1-800-248-8420 

For Color Computer 3 only. Please add $3 S/H 



Simply Better Software 

P.O. Box 20726 

Portland, OR 97220 



TECHNICAL ASSISTANCE 
9 AM -5PM 
(503) 254-7225 



Lee Deuell 
Shell Rock, IA 



Dear Lee: 



Nothing I could possibly say could im- 
prove on your letter* You are really making 
a difference - thanks for taking the time 
to write! 



CoCo 
Clipboard 
Magazine 




A GREAT 
HOLIDAY GIFT! 

Get 12 Disks or Tapes a year containing over 120 quality programs. 
A subscription to T & D Software consists of 10 ready-to- run pro- 
grams delivered first class mail every month. 




PRICES 

Tipe HohOy 
or 0b* Savings 
2 Years SUV «100» 
1 Y**r Jff 60» 
6 mo's 35" 



* COCO 1, 2. and 3 
* Includes Documentation 
Please Specify Tape or Disk 



HOLIDAY BONUS: Subscribe for 
a year, receive our latest 
2 Back Issues FREE! 
Subscribe lor 2 years, 
receive 4 FREE! 
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VIDEO DIGITIZER 



The Rascan Video Digitizer is a state- 
of-the-art image processing system 
designed to take advantage of your 
Color Computer 3's graphic capabilities. 

The Rascan Video Digitizer connects 
easily to any color or black & white video 
camera, video recorder or video disc 
player and captures images with 
precision accuracy. 

Why settle for a 256 x 256 image area 
when the Color Computer can display so 
much more? We asked that question 
ourselves. Our only answer was to provide 
an image area of 640 x 200 and 
320 x 2001 Say good - bye to those 
useless lo -resolution images created by 
other digitizers on the market. 

Life is not simply black & white, that's why 
we added living color to our Digitizer. 
Now, through the use of advanced 
programming techniques, 51 2K Color 
Computer 3 owners can capture images 
from their video camera and display 
them in 4096 Super Hi -Resolution 
graphics! 



Capture images effortlessly. Simply select 
the image capture option and turn your 
Rascan unit on. Within seconds your 
image will be captured and displayed 
on your screen, images can be fine tuned 
by use of the contrast and brightness 
knobs found on the Rascan unit. 

Rascan also features a professional 
pop-up menu system which will allow for 
easy palette manipulation and color 
painting of captured images. 

The Rascan Video Digitizer comes 
compiete with Rascan driver software, 
an easy to read manual sample graphic 
images disk and print driver disk (support- 
ing most printers). Although no further 
graphic editors are necessary to produce 
quality images, Rascan images can be 
easily loaded into ColorMax and 
CoCo Max graphic editors. 

Whether your interests are in desk -top 
publishing, report generation or simply for 
fun, the Rascan Video Digitizer will 
provide you with images of near photo- 
graphic quality! 



FEATURES 



RASCAN DS-69b 
YES NO YES NO 



Support of 640 x 200 16 Level Grey Images 


X 






X 


Support of 640 x 200 4 Level Grey Images 


X 






X 


Support of 320 x 200 1 6 Color Images 


X 






X 


Support of 4096 Hi-Res Color Graphics in 51 2K mode 


X 






X 


Support of Multiple Image Buffers in 51 2K mode 


X 






X 


Control of Contrast & Brightness via Control Knobs 
found on Digitizer 


X 






X 


Professional, Easy to Use Pop-Up Menu System 


X 






X 


Designed Exclusively to Take Advantage of the power 
of the Color Computer III 


X 






X 


Built in Histograph Utility to Aid in Image Quality 


X 






X 


Easy to use Paint and Palette editing, no need for additional 
Graphic editors 


X 






X 


15 Day Full Money Back Guarantee 


X 






X 


Interface through Joystick Ports 


X 






X 


Requires additional cost of Y-Cable or Multi-Pak interface 




X 


X 





THE 
RASCAN 
VIDEO 
DIGITIZER 
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~~ NO RISK GUARANTEE ~~ 

If you are not completely satisfied 

with the performance of your 
Rascan Video Digitizer, you may 
return it, undamaged within fifteen 

days for the full refund of the 
purchase price plus shipping costs. 
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P.O. Box 6907. Burbank, CA 91510-6907 
(818)566-3571 • BBS: (818)772-8890 
Toll Free: 800 877 -2232 ext. 139 



Personal checks, money orders, and American C.O.D. orders accepted. 
Include $3,00 for S/H. $2.50 extra for C.O.D. orders. (Cat. res. add 6.5% tax.] 
ATTENTION PROGRAMMERS: Game Point Software is looking for talented 
writers. Top royalties guaranteed. 



Product Reviews 

Review Crew 



♦extended* ados- 3 

SpectroSystems 

11111 N. Kendall Drive, Suite 108 A 
Miami FL 33176 
<M*')274-3«M- .. 

Pgm. Type: Alternate CoCo DOS (HUST be 
burned into EPROM) 

ffce%u i res : 1 2 Bit Co€*3 + di sk 

Price ; $39,95 alone, $64*91 w/ABOS-3 + 
' $2 shipping 

Add: $10 for 28-pin adapter, 
for 24 -pin disk controllers. 
$5 for SmartWatch/Disto real- 
time clock driver. $35 for 
SmartWatch clock (includes 
above driver free) 

Reviewed by Don Ricketts 



This will be a somewhat difficult review 
for me to write. And it's not because the 
product does not live up to it's ex- 
pectations, but rather because it's se 
exciting. I'd rather be playing with it 
than writing about it! I reviewed ADOS- 3 in 
this magazine a few months ago, and was 
very impressed with it. Little did I know 
how much more amazed I could be by its new 
embellishment, * EXTENDED* ADOS-3. 

Unlike regular ADOS 3 , * EXTENDED* ADOfi-3 
MUST be burned into an EPROM to realize its 
benefits. Also, * EXTENDED* ADOS-3 is net a 
stand alone DOS — you must already have 
ADOS3. The disk you receive has everything 
necessary to add the extended functions to 
your ADOS3, for burning into an EPROM. 
There are a number of utilities on the disk 
that mimic many of the commands, but when 
using them as a disk utility, you can only 
use one at a time. These utilities are pro- 
vided as a sort of get a feel for it sam- 
pler to discover some of the extended func- 
tions. SpectroSystems provides all the 
information necessary to get an EPROM 
burned with your configured setup. 

The customizing of * EXTENDED* ADOS-3 is 
done just like it was for ADOS 3 — editing 
a BASIC program with your particular wants 
and needs. Actually, there are two programs 
that need to be edited. Again, the programs 
are so well commented that it could prob- 
ably be done without documentation. After 
you have customized the programs, you then 



run the main one, ECUST.BAS, making sure 
you have a disk copy of your ADOS 3 on the 
new disk. What's that - you can't find your 
disk version? No problem. There is a pro- 
gram on the disk that will "read" your 
ADOS3 EPROM and create a disk version of 
it. Running ECUST creates a file which is 
then burned into an EPROM. Now for some of 
the new goodies. 

First of all, you can configure in 109 
more characters worth of control keys, or 
macros. ADOS 3 was limited to all drives 
having the same number of tracks. Not so 
with * EXTENDED* ADOS-3. You can mix n' 
match just about anything you have, all the 
way up to' three 80-track double-sided 
drives. And for the 512K owners out there, 
you get an additional two Ram disks! Only 
four drives can be used at any one time, 
but there is a CONFIG command that can be 
used directly, or within a BASIC program, 
to switch the logical drives around 
wherever you want them. It is kind of com- 
plicated to get into here though. 

Concerning the Ram disks, remember that 
they are up in the 512K area, so 512K pro- 
grams will no doubt crash them, so get any 
important files off beforehand. For the 
record, a DSKINI of a Ram disk takes less 
than a second, and a BACKUP of one full Ram 
disk to another is done in less than 3 
seconds . 

I have a 512K CoCo3 and find that I am 
using the Ram disks more and more every 
day. I do a lot of digitizing, then con- 
verting the picture files to what most 
users can view. There is a lot of disk 
swapping, which can be very tedious, but 
with these incredibly fast Ram disks, I 
hardly have to do any disk removal/in- 
sertion at all. I start my session by 
backing up my picture digitizing and con- 
version utility disk to one of the Ram 
disks, which takes half the time of a 
regular BACKUP (15-20 seconds). Then I load 
the various utilities from the Ram disk and 
things are much, MUCH faster. Many of my 
conversions require a coldstart, but luck- 
ily, the contents of the Ram disks are 
preserved; about the only time you will 
wipe them out is by loading a 512K program, 
a power off situation, or some quirk in 
your system. On a 512K CoCo3, the Ram disk 
feature will amaze you, and you will prob- 

Continued On io 
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Continued From 10 

ably be finding yourself utilizing it a 
LOT, as I have. 

The BACKUP command has been modified. To 
begin with, it is twice as fast. When back- 
ing up disks, it only backs up sectors that 
are used, according to the GAT (Granule 
Allocation Table). This means that if you 
are backing up a disk that's only half 
full, it will go very quickly indeed. Even 
when backing up a chock-full disk, it is 
still twice as fast as an RSDOS or ADOS3 
backup. For example, a 35-track disk to 
disk BACKUP using RSDOS or ADOS 3 takes 
about a minute and a half; the same BACKUP 
under * EXTENDED* ADOS-3 takes 42 seconds, 
for a FULL 35-track disk! There is an op- 
tion to override the "GAT backup" feature, 
just in case you want the entire disk 
backed up. There is another option that 
allows you to back up only the number of 
tracks you specify, such as if you have a 
35-track, formatted disk you need to copy 
to another disk, you can just tell it to 
backup just 35 tracks. This makes it easy 
to stay compatible with your RSDOS buddies. 

The DSK1NI command has also been altered 
to work faster. The actual formatting is 
twice as fast and the verification is a 
little faster, because it appears to do a 
"reverse verify," instead of stepping down 
to track 0 and working its way up again. 
Although it would hardly ever be used, the 
DSKINI function in * EXTENDED* ADOS-3 can be 
used from within a BASIC program! 

The MENU command: This command presents 
you with mini disk utility, giving you a 
directory on the right side of the screen 
and a list of functions on the left. From 
here, you can COPY, KILL, SCAN, LOAD ( M ) , 
RUN ( M ) files. The up and down arrow keys 
scroll through the directory to the file 
you want to do something with, highlighting 
it with the color of your choice. MENUCUST 
is the other program you customize by edit- 
ing it, choosing fore and back and high- 
light colors, default destination drive 
(for COPYs), screen width for the menu, 
etc. MENU is very handy if you need to kill 
a bunch of files, examine them or whatever. 

Wild card COPY and KILL: Allows the 
COPYing or KILLing of multiple files with 
one command. For instance, the command 
COPY"*. BIN" TO 1 would copy all the files 
on your disk with the extension .BIN to 
drive 1. There are various ways to use the 
"*" and "?" characters in the command, to 
do your bidding. There are also arguments 
you can append to the command to output 
each file to the screen, ask if you want to 
copy the file, kill the file after it's 
copied and automatically replace a file if 
it already exists on the destination drive. 
They can all be mixed and matched. I should 
10 



note that using the regular BACKUP (GAT 
backup) is faster than a wholesale 
COPY"*.*" TO 1, which would of course COPY 
all the files on 0 to drive 1. 

DATE command: When you first turn on 
your computer, with * EXTENDED* ADOS-3 in- 
stalled in EPROM, you will be prompted for 
the date, if you configured ECUST to do 
this. This date is appended to your 
directory entries anytime you SAVE a file. 
This doesn't have to be a date — you can 
type in anything you like, up to 16 char- 
acters. If you have the Disto real-time 
clock or the new Smartwatch, you won't be 
prompted for the date — it will get it 
straight from the clock, along with the 
time. If you want to change the DATE in- 
formation in the middle of things, just 
type "date" and you will be prompted again. 
A nice feature of the DATE command is that 
you can "backdate" files. First you would 
issue the DATE command, put in the date (or 
whatever) you want, then issue the DATE 
command again, followed by the filename you 
want to contain that particular informa- 
tion. When doing a DIR, files with dates 
will show the string off to the right of 
the rest of the file information. Also, 
when you LLIST an entire program, the DATE 
string is printed at the top of the list- 
ing. DATE$ will return whatever your DATE 
string is at the time. 

LCOPY and LMOVE: Allows the copying and 
moving of BASIC program lines to other 
places in your program. Very handy when 
using a similar line many times — saves a 
lot of typing. 

Screen snapshot: Holding down 3 par- 
ticular keys simultaneously will send a 
"snapshot" of your current text screen to 
your printer. 

SKIP ON/OFF command: Allows an 80-track 
drive to read 35/40 track disks, by step- 
ping twice instead of once to the next 
track. It is usually best not to CREATE a 
disk on an 80-track drive in skip mode, 
just use it to READ 35/40-track disks. This 
is due to the smaller heads on an 80-track 
drive, and a 40-track drive could have 
trouble reading the information created on 
an 80-track. 

Key repeat: * EXTENDED* ADOS-3 has key 
repeat, which is very useful when editing 
BASIC programs. Have to go halfway into 
that 240-character line to change some- 
thing? Just hold down the spacebar to whiz 
right to it. The duration between initial 
keypress and repeat, along with repeat 
speed is configured in ECUST. 

Coldstart actions: First, there is a 
COLD command, which cold-starts your CoCo, 
much like powering down, then back up 
again. Your ECUST can be configured to take 
an action when a cold-start is performed or 
the machine is first powered up. It will 

Continued On 13 
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FULL YEAR (6 issues) Only $49.95 

In a world where TIME is in short supply, ClipDisk saves 
you time and prevents frustration? 

A subscription to ClipDisk is just $49 , 95 for a FULL 
year (6 issues)! Single issues are available as well for 
just $9 . 95 Of course in order to get the full benefit of 
ClipDisk you'll need the corresponding issue of Clipboard. 

All the BASIC, Assembly, BASIC09, PASCAL and C listings 
in each issu of Clipboard are available each month in 
ClipDisk. No more typo's or late night de-bugging and our 
easy to use OPENING MENU let's you select the program with 
the keyboard arrow keys. 

ClipDisk is mailed first class - start your subscription 
today! 



Please charge my purchase to my (circle) VISA / MasterCard / Discover Card. 



Name: 



Address: 



City: 



State/Prov: 



Zip/Postal Code 



MasterCard Interbank Number 

Cardtt. _. 

Exp. Date 

Signature : „ 



PLE^SEJJOTE: All charge card orders are handled courtesy of Qn-Line Computer Services.Your 
charge card billing will show Qn- Line Computers and NOT CoCo Clipboard Magazine. 

CoCo Clipboard Magazine 

3742 U.S. 20, Box 3, Fredonia, HY 14063 
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The Buffalo News/Sunday, June 4, 1 < 



Magazine specializes 
in Tandy compnters 



The May/June issue of "CoCo 
Clipboard Magazine," published 
in Fredoma, offers its readers 
some interesting articles, including 
one called "Intro to MIDI" by Dr. 
Lester Hands that alone is worth 
the S2.7S selling price for the 68- 
page publication. 

Hands explains that MIDI is an 
acronym that stands for Musical 
Instrument Digital Interface and 
that it makes it possible for a com. 
puter to communicate with a syn- 
thesizer. The informative article 
reports that the Color Computer 
has some "unique advantages for 
making music with a MIDI syn- 
thesizer" and that it can be done 
for much less than most other sys- 
tems. 

The article by Hands and other 
articles by equally expert writers 
for the magazine, which informs 
its readers about Tandy Color 
Computers and equipment, fill a 
growing need not only in Western 
New York but throughout the na- 
tion. 

This need, of course, is infor- 
mation people can understand 
about the Color Computer market. 
Many readers have reported from 
time to time that it was hard to 
get information on topics that in- 
terested them. CoCo Clipboard 
appears to have a potentially big 
audience. 

Editor and publisher is Theo- 
dore W. Paul Jr. Associate editor 
is Darlene M. Paul. Contributing 
writers include Rush T. Caley, Jim 
DeSlcfano, Kraig Brockschmidt, 
Mike Dooley (KE4PC), Bob van 
der Poel, Bill Brady, Randy 
Krippner, Paul Bornemann and 
Shelby LaMom. 

Many area hardware and soft- 
ware outlets advertise in the mag- 
azine. 

"Clipboard brings you solid ar- 
ticles, programs and tutorials on 
BASIC, OS9, BASIC09, CC Multi- 
View, Machine language, data bas- 
es, packet radio — the list goes on 
and on," the magazine's manage- 
ment states. 




By iONNie HUDKINS 



what Lorwiie Hudkins 
•f the Buffalo News 
has t© say about CoCo 
Clipboard Magazine! 
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P O tox 6907. Burbank. CA 91510 090? 
(818) 566-3571 • BBS (818)772 8890 
Toll Free: 800 877-2232 ext. 139 



<«GimE$OFT>» I! 



S*v» 1©X on C.S.8. 
with thi» coupon 



Clearljrobk^^ftitvare. Group 




Information 

Management 

System 



CSG IMS is a full featured relational database manager 
for the Color Computer and 0S9. 

. tnlaractiva acceai to • Uter daflrtad acraan and 

daUb at for quick quariaa. rapofllormata. 
• Includea a airucturad • Record, Indax, and flta alia* 

eompHad languaga ara virtually ur»l!mHad. 

aupporUng program modulai . T , xt> BC0 „ ot1j in , 
wtth fun pajamatar patting (14 d , g „ s > ^ ^ ^ 

and racuralon, lnt*yar. and data daU typai. 

CSQ IMS for CoCoa/3 OS9 UfZ (tlngla uaar) $169.95 

CSG IMS tor OS9 U or 68000[rmjlti uaar) $49500 

CSQ IMS damo with manual $30 rjg 

OTHER CSG PROOUCTS: 

ERINA Symbolic Uaar-moda Dabugger for 0S9 $69.00 

SERINA Syaiam-moda Dabuggar for 0S9 Laval 2 $139 00 

MSF MS-DOS Fila Managar for CoCo3/OS9 U $45.00 

MSFwltfiSDISK3 $65.00 

Shipping - N. Amarlca: IS, Ovaraaaa: $10 

Cletrbrook Software Gro.ip, Inc. 

U.S : P.O. Box 800XM99, S«mM,W 98295 
CANADA: P.O. Boi 8O0CM99. AbboUford. B.C. V2S SHt 

Phone: (604)853-91 1B 

0*9 to • hadwnart cfWknMn *f**~* C«T>. 



SAVE $15 
WITH THIS COUPON 

ON A SCSI INTERFACE 
WITH R.T.C. 

OR $15 ON A 2 CHANNEL 
DUAL CO MM BOARD 

FROM: 



KEN-TON 
ELECTRONICS 

187 GREEN ACRES RD. 
TONAWANDA, NY 14150 



(ElftH ccrttfitate entitlca 



tu 



tlfeir next purdfaac. 



off 




COMPUTER 
SYSTEMS 



5Ja«-traitufEral»!e mib mt ualib tuttlf a«a 
ntlfer Hale pxkw ur ttxtltimtt*. 

(5I]f0 nfitv expirejeNov. 30, i989f| 

l CoCo Clipboard Magazine <</ j 



294 STILLWELL AVE. 
KENMORE, NY 14217 



with this coupon on your next order from RGB 
Computer Systems 



BULLETIN 

Call for details on our new product which allows 
you to boot OS9 directly from the Hard Disk 
without floppy or special EPROM 
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Continued From 10 

either look for a basic program on a drive 
of your choice, or issue the DOS command, 
automatically. This action can be con- 
figured depending on if the SPACEBAR is 
held down at start-up or coldstart. You can 
also configure NOT to do either. This is an 
excellent feature for anyone running an 
unattended BBS — if the power went off, 
then came back on, your * EXTENDED* ADOS- 3 
EPROM could automatically boot the system 
back up, with no one touching the computer! 

COLS command: In the 40 and 80 column 
screens, this command creates a column line 
that you can use to figure out locations 
for the LOCATE command. 

PEEP command: This allows you to look at 
pages of memory and scan through them. The 
display is a width32 graphics sort and 
won't mean much to those not familiar with 
the way numbers are represented graphically 
in the 32-column mode. 

The documentation is very thorough and 
well written. I had a little bit of trouble 
understanding the explanation of the CONFIO 
command, but it finally sunk in. Other than 
that, it was easy reading and quite under- 
standable • 

There are a couple of small compati- 
bility problems with two commercial pro- 
grams. The solutions are provided in the 
documentation. As always, the DISABLE com- 
mand should solve most compatibility prob- 
lems. The author, Art Flexser also provides 
some hints on doing partial disables, for 
instance, doing a disable, but retaining 
the Ram disks. I did have a compatibility 
problem with a shareware terminal program, 
which I told Mr. Flexser about. It is 
apparently a fluke in very few systems, but 
he did spend a great deal of time attempt- 
ing to track down the problem so that this 
product will even be compatible with those 
few. We haven't yet discovered the "prob- 
lem", but we did find a simple way around 
it without compromising the operation of 
the program. It is obvious that the author 
has painstakingly gone through just about 
everything, looking for those little quirks 
and finding a way around them. * EXTENDED* 
ADOS -3 shows it, in its flawless, compat- 
ible operation with just about everything 
under the sun. 

Some might think the price is a bit 
steep for an "upgrade" but it's worth it, 
especially when one considers the five-fold 
increase in development time to keep 
♦EXTENDED* ADOS-3 compatible with all your 
favorite programs. They say time is money. 
You will find out very quickly how much 
time you save doing things with * EXTENDED* 
ADOS-3 and maybe wonder why it doesn't cost 
more. I stand by my previous statement in 
the ADOS-3 review, even more so now, "You 



will wonder how you ever got along without 
it." In my opinion, this is by far the most 
USEFUL product ever devised for the Color 
Computer. 

Adapter for a remote IBM type keyboard 

Bob' Puppo 

1574 Daws Road 

Blue Bell, PA 19422 

Phone (215) 272-7398 



Requires: A CoCo-1, -2 or -3 and 

an I BM type keyboard . 
Price , : $99,00 , including shipping 




Please don't get this one wrong right 
out of the bag. This product is not just a 
ribbon cable to move the CoCo keyboard out 
of your CoCo. In fact, this product puts 
the CoCo keyboard out to pasture. In its 
place, this adapter allows the use of an 
IBM type keyboard, up to fifteen feet from 
the CoCo, but that is only the half of it. 

An adapter is needed because an IBM type 
keyboard is electrically different than a 
CoCo keyboard. Therefore a conversion of 
the signal between the computer and the 
keyboard is needed. Bob's adapter, using a 
6802 micro processor, does this conversion 
and much more. 

I remember seeing Bob and his adapter 
almost two years ago. At the time I thought 
it was a lot of money for just a fancy key- 
board. Boy, was I wrong! I just didn't know 
what I was looking at. I've found a good 
keyboard is important. It's not just a 
luxury. 

Bob says he designed the adapter because 
at work he uses an IBM type keyboard and at 
home he has a PC. Both have the same lay- 
out. Then when he switched to his CoCo, he 
was all thumbs due to the different layout. 

I was able to relate to that, yet, the 
thing that made up my mind was space. My 
computer center (ha) is two student desks 
butted front to front and a low dresser 
next to them. The tops of one of the desks 
and the dresser are filled with a second 
CoCo, two monitors, a printer, a floppy/ 
hard disk drive and a table lamp. A CoCo-3 
sits (sat) right in the middle of the sec- 
ond desk. When I wasn't using the -3, it 
just sat there hogging most of the desk 
top. (As with all equipped CoCos, it was 
difficult to move because of all the cables 
running in and out.) 

Now I've got my desk top back. The -3 is 
tucked away out of sight on the knee shelf 
of the second desk. When I'm using the -3, 
the keyboard is on the desk. When I'm not, 
the keyboard is over on the dresser. How 
nice ! 

Continued On \< 
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trying to squeeze the 
between a new pair of 
and he is 
$40 for two 



got it tough, I'm 
price of a monitor 
work shoes and a brake job, 
telling me how to spend $99 + 
square feet of desk space." 

The comment is not out of place, but a 
good keyboard is not to be thought of some- 
thing for the CoCo user that has every- 
thing. The value of Bob's adapter is that 
eventhough it's not a single big gun like 
an RGB monitor or a modem/Comm package al- 
lowing communications with bulletin boards, 
it yields a series of many small good 
things. 

Good things like having the defacto 101 
keyboard standard, which will allow you to 
work at most computers without having to 
change gears due to a different keyboard 
layout. Like getting better use out of your 
desk top space. (Normally a 101 keyboard 
has a coil cord, so it can moved several 
feet in any direction from its normal lo- 
cation) and seeing your input speed in- 
creasing by 10% with a 101 keyboard; even 
if you are not a touch typist. 

The adapter allows an additional seven 
more function keys than your CoCo, and you 
program them. Do you think your typing time 
would be reduced if the most used word pro- 
cessing functions that use two or more keys 
were able to be used by hitting just one 
function key? I was amazed. 

I switched from TW-80 to Simply Better. 
TW-80 uses one key to delete a character, 
while Simply Better requires two keys. That 
function is now on F-3. Delete one word on 
the right of the cursor is F-4 . Move the 
cursor the end of the line is on the... 
well you get the idea. 

Of course I havn't tried all the pos- 
sible combinations, and I expect there must 
be some that won't work, but how about your 
own "standard" between different word pro- 
cessors or even different programs like a 
word processor and a spread sheet? What I 
mean is, the delete-a-character function in 



different programs could be setup on the 
same function key. No more hitting the 
wrong key because your head is running a 
command set different then the command set 
of the program in the computer. 

With this kind of view, lets consider 
Bob's offering. So far as I know, he has no 
competitors, so it is either his or design 
and build your own. The adapter is on a 
board that fits under the original CoCo 
keyboard. The board's quality is not that 
of a Disto or Ken-Ton, but all the good 
stuff is there; gold plate, wide traces, 
good solder job, etc. It should last 
forever. 

It connects to the CoCo just like the 
CoCo keyboard, with a trace ribbon cable. 
This means the CoCo ' s case has to taken 
apart. The nine page manual devotes one 
text and one diagrammed page to this opera- 
tion. (Is there a CoCo in the land that 
hasn't been open at least once by its 
owner?) Always be sure to pull the com- 
puter's electrical plug from the 110 volt 
wall socket before taking the case apart. 

All of the following is explained in the 
manual; once the top half of the case is 
off, just unplug the keyboard's ribbon 
cable and plug in the adapter's ribbon 
cable. Slip the adapter board down into the 
case to the right of the center post that 
was used to support the original CoCo key- 
board . 

There are three wires from the adapter 
board that get connected to the CoCo board 
using two alligator and one "J" clips. 
("J" clips are normally used in tight 
places.) It would be better if a second "J" 
clip was used at he power supply connect 
point. The Tandy 512K memory upgrade board 
pretty well covers this area. Bob said he 
would consider doing it. 

While on the subject of the power sup- 
ply, we are always concerned about the 
CoCo's power supply over heating when 
adding goodies. Of late add-On suppliers 
have taken a new tact when they can. Bob 
has done it too. 

Continued On i5 



Cfi^ck Account In-f ormat i on Syst e?m 

Not just another checkbook program but a user friendly, menu driven, disk based 
information system. Keep track of deposits, checks, ATM withdrawals and other 
account transactions. Define up to 36 categories to monitor expenses. Bet up 
automatic transactions for such items as direct deposits and deductions. Balance 
your account(s) in minutes! Other features include multi-drive capability, display 

on any field, edit and delete capability and more, 

After Five Software Send check or M.O. for 

P.O. Box 210975 $34.95 plus $3.00 S/H 

Columbia, SC 29221-0975 COD orders: add 12.00 

(803) 788-5995 (SC res. add 57. sales tax) 



and print options, check search 



CoCo 3 compatible 
Printer optional 



RAINBOW 

CERTIFICATION 
SEAL 



Untangle your checking account with CAIS! 
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The new method depends on the fact that 
the power supply transformer can put out a 
lot more power the* the regulator circuit 
can consume before over heating. The trick 
is to tap into the power before it is reg- 
ulated, and then regulate it on the add-on 
board. A little more expensive, but its 
worth it to be worry-free about over heat- 
ing. 

The manual suggests several paths to 
lead the coil cord out of the CoCo's case. 
I cut a notch in the side of lower case 
half, right at the split line. The keyboard 
now sits on my working desk and can be 
moved to any place in the area. 

Do you get invitations in the mail to go 
to a local computer fairs. You now have a 
reason to go; to get a good deal on a key- 
board. In most cases you can check out the 
feel, get to use a number key pad, etc. A 
XT compatible board can be gotten today for 
$40 or less. 

I didn't (don't) know very much about 
keyboards and as Bob says, "I don't nor- 
mally supply keyboards, but on occasion, if 
I find a good buy, I can." The rule of 
thumb on getting a keyboard that works with 
the adapter is; it must compatible with an 
IBM PC-XT (or XT clone) computer. 

There is more than one key layout pat- 
tern that is XT compatible. The layout that 
is used with most all computers is called 
the 101 layout. Based on the fact that it 
is the most often used, that is the layout 
I recommend. 

A 101 board is the standard and its got 
all the goodies. A number pad. Much faster 
number input. A H CapsLock M key. No more 
need to hit Shift/0 to lock in upper case, 
just one key press to turn it ON or OFF. No 
more Shift/# to stop scrolling, just hit 
the Scroll Lock key. There are sets of Ctrl 
and Alt keys on each side of the keyboard. 
It has big Enter, Shift and Backspace keys 
and the arrow keys are grouped together in 
one spot. And incidentally, the front row 
of keys are only a inch above the desk top; 
as opposed to the CoCo's two and a half 
inches. Much less tiring. "All front row 
seating . " 

Since Bob's adapter uses firmware to 
gets its job done and thus uses no computer 
memory, he used the opportunity to add some 
goodies. The programmable function keys fit 
this category. All keys can be made to 
repeat by hitting Function 10 and the 4 
keys. It is turned OFF the same way. RE- 
SET, hard and soft, is done right from the 
keyboard. No need to reach around behind 
the computer. There are two sets of 22 pre- 
programmed BASIC words that are called from 
just two key presses for each word. One Set 



is for use with RS-BASIC and the other for 
OS-9/09BASIC. 

Upon start up the operator is presented 
with a menu. It asks for a setup choice be- 
tween OS-9 Level I/DOS, OS-9 Level I I /DOS, 
RS-BASIC, OS-9 Level I/"*", RS-BASIC/"*". 
The first two setup the keyboard for the 
indicated system and then execute the DOS 
command. The last two make the indicated 
setup and then auto-run a program you have 
previously put on your disk system, called 
"*" . "*" can be anything you make it. It 
could be another menu, a loader program for 
your word processor, etc. A very nice 
touch . 

Since the menu/auto execute feature 
would interfere with RGB-DOS ' s auto execute 
feature, Bob will supply the EPROM without 
the menu display. In fact, there is no real 
loss because the setup choices can still be 
selected at any time with two key presses. 
Only the auto execute/run is deleted. Since 
RGB-DOS already has it, nothing is lost. 

What's on the down side? The function 
key action you setup is destroyed by a cold 
RESET and can not be SAVEed and played back 
in. I would have choosen some different 
preprogrammed RS-BASIC words, and would not 
have included a space after those that 
don't need one. I also wonder if 44 words 
couldn't be preprogrammed by using the 
shift key too. (Last time I talked with 
Bob, he said he was considering setting up 
the 101 's six dedacated word processing 
keys to work with the RS-BASIC line 
editor. ) 

The price looks big, but it is hardware, 
not software. Maybe its biggest fault is 
the lack of single a blow your socks off 
feature. However, if all the features are 
considered together, you realize a proper 
keyboard with all the add-ons is a real 
power tool for the serious CoCo user. 

Bob's adapter works flawlessly with and 
for the user. Would I recommend getting one 
before a printer, single floppy drive or a 
monochrome monitor? No. Before a hard 
drive or a modem setup or OS-9, etc*? That 
choice depends on your "normal" use of your 
CoCo. I never realized what a good keyboard 
would do for my word processing action. 
Conclusion? Anyone want to buy a CoCo-3 
keyboard. . .cheap? 

OS-9- File System Repack 
Burke & Burke 
PO Box 58342 
Renton, WA 98058 

Cost: $29.95 

Reviewed by Mike Ouzzi 

If I was asked to sum up this program in 
one sentence it would have to be "A program 

Continued On 17 
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Clipboard Magazine 

THE NEWEST, MOST IN-DEPTH MAGAZINE FOR TANDY'S COLOR COMPUTER 2&3 

If you've been looking for a CoCo magazine that takes a No Nonsense approach 
to the Color Computer, then CoCo Clipboard Magazine is for you! 

If you're getting tired of lo-res block graphics applications, reviews that still leave you 
guessing, and the same old boring approach to serious computing, then CoCo Clipboard 
Magazine is for you! 



Clipboard brings you solid articles, programs and tutorials on BASIC, 
OS9, BASIC09, X," MultiView, Machine language, databases, packet 
radio - the list goes on and on. Plus we re up-to-date on what's 
happening with the CoCo. We were the first to bring you IN-DEPTH 
reviews on VIP Writer III, RGB Hard Drives and Tandy, Home Publisher 



6-2-1 

$90.00 

SAVE 15% FROM LIST PRICE 

Our best money saving offer yet, it's 6-2-1' 
"6-2-1" is our best way to save you : money! Six 
back issues of Clipboard, a two-year subscription 
to Clipboard AND a one year subscription to 
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Capacity: 78,720 sectors 44,474 free, 
largest block 4,076 
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born out of necessity". This set of util- 
ities, which is a new product from Burke & 
Burke, fills a major hole in my utility 
box. These utilities are designed to take 
any OS9 disk no matter if it is floppy or 
hard and re-organize it to reverse the ef- 
fects of OS9 splitting files into smaller 
segments and slowing down access to your 
files. It will not only gather all your 
free space together but will reorganize 
your files so they are no longer frag- 
mented. This speeds up disk access and cuts 
back on mechanical wear and tear, 
especially on your hard drive. 

The programs will work under both Level 
I and Level II 0S9. All utilities have a 
help option by using "-?" or tf -h" as a pa- 
rameter. They will work with ANY floppy 
and/or hard disk system which is excellent 
since there are many types out there. As a 
small hint about the manual I removed the 
clip it came in and placed it in the binder 
with my Development pak so I can flip 
through the pages much easier. 

My system setup is as follows: 



512K Tandy Color Computer III 
Sardis DMC No-Halt floppy controller 
Drive 0 = Double sided 40 track drive 
Drive 1 = Double sided 80 track drive 
Drive 2 = Double sided 80 Track drive 



LR Tech Hard disk 
S1410A Controller 
Seagate ST 238R and 
drives 



3.5" 

interface with Xebac 
Seagate ST 225 hard 



These utilities will run on ANY hard or 
floppy system. It comes on one standard 
format disk (35 track single sided) and 
it's not copy-protected so you can make 
backups and store the originals away in a 
safe place. 

The repack system does not require any 
disk space to run but it is very explicit 
in that it must have exclusive access to 
the drive it is fixing. If you read or 
write to that drive while this utility is 
running you can confuse it and destroy your 
data. As long as you can isolate the drive 
this program will work as a background 
task. All you have to do is knock down its 
priority since it starts with a high 
priority. 

The worse your fragmentation is the 
longer this utility will take to fix it. My 
first hard drive was the worst and the 
second hard drive was still in fair shape. 
These are the actual free reports before 
and after I used the utilities just to give 
you some idea what these utilities had to 
endure . 

This is the first hard drive report: 



Second hard disk report: 

Capacity: 78,720 sectors 
largest block 35,537 



36,759 free, 



Granted a free report will not show file 
fragmentation. I had to use a public domain 
utility that shows the map and flags dif- 
ferent things. I first ran the utility on 
the second hard drive and that took 5 
hours, 22 minutes to complete its task and 
free reported the free space and largest 
block to be the same. Also using that util- 
ity to map out the hard disk showed it 
neatly packed. The files stayed in their 
general order so it was like nothing hap- 
pened. Running this on my main drive took a 
whopping 12 hours but considering how bad 
it was I knew it would be at least twice as 
long as the first drive was. Again it was 
neatly packed and it operated much quieter 
(less head movement and faster access to my 
files). Then I ran the utility again on the 
hard drive to see how long it would take. 
It completed the job in 7 minutes. This 
means it is best to run the utilities per- 
iodically such as once a week or month when 
it will only require a few minutes rather 
than hours when the frgmentation is real 
bad. The MS-DOS computers also have such 
utilities and although I do not own an 
MS-DOS machine but from talking to people 
who have these utilities the PC's take 
about the same amount of time as the CoCo ' s 
version . 

The utilities on the disk include the 
following . 

BA - Sets bits in allocation map 

BD - clears ( resets ) bits in 

allocation map 
CCHECK - Scans disk for defective sectors 

& identifies files stored there 
HDB - Back up a hard/floppy disk to 

multiple floppies 
HDR - restore hard/floppy disk from 

multiple disks 
REPACK - optimizes hard or floppy disk 

(main program) 
STASH - marks files/directories that 

should not be repacked ie: OS9boot 
ZAP - Erases a file's directory entry 

without de-allocating sectors 
FCHECK - generates a file fragmentation 

report 

CCHECK is a program that will non- 
destructively read and write every sector 
on a drive. It is much more sensitive then 
Format's verification and can usually de- 
tect marginal sectors. It can by option set 
the bitmap so it can automatically lock out 
bad sectors it finds. You can safely abort 
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this command with BREAK and it will not 
destroy any sectors. 

BA and BD allow you to manually set or 
reset bits in the allocation map which can 
be for many reasons which could be for non 
0S9 partitions and so forth. You must use 
these with care since you can confuse the 
system if you do not be careful, 

HDB and HDR are utilities to backup and 
restore a large floppy or hard disk to mul- 
tiple floppies. It is always wise to backup 
a hard disk since mishap can occur and you 
would be left without any data on the 
drive. You must pre-format the disks to 
hold the backup files and you may use disks 4 
that have bad sectors since these utilities 
will go around them. Now lets say you make 
a full backup and you DO clobber the hard 
disk, well you can restore it and rest 
easy. A good point that comes up is "what 
happens if one of my backup disks suddenly 
has a bad sector on it AFTER I backed up 
the hard drive?" I have used several backup 
utilities and some will simply die at that 
point and your backup disks are useless. 
These utilities however are much smarter 
than that. It will attempt to re-read the 
bad sector and if it still cannot get it 
then it will skip it.. This means you will 
only lose part of 1 whole file. This is not 
bad since a hard disk can easily have 2000 
or more files. These backup utilities can 
also compress the data to save on the num- 
ber of floppies needed but it will mean it 
will take longer to do the backup. Also 
they are a streaming type backup and not 
file by file so the drive will be exactly 
like it was before backup as when it is 
restored. 

REPACK This is the utility which will 
reorganize your hard or floppy disk. It not 
only regroups files but also will group 
together the free space so it will cut down 
on access time and wear and tear of your 
drive. You can set it for single pass mode 
which only makes one pass over the disk. It 
will not completely de-fragment the drive 
but will improve it a bit. This obviously 
means it will not take as long. It would 
only take about 15 minutes for a 20 meg 
disk compared to 12 hours for a complete 
repack. You can safely abort it by hitting 
BREAK once. It will not stop until it can 
safely exit and then it will abort. However 
if you do hit BREAK a second time it will 
abort immediately and you have a very high 
risk of file damage. It must also have ex- 
clusive access to the drive being re- 
packed. If you read or write while it is 
operating you can confuse it and cause dam- 
age. It does not require any free disk 
space so you can repack disks that are 
full. 

STASH Hides a file or directory either 



to make them hidden files or to prevent 
repack from moving the file. A good example 
of this is OS9boot which must not be moved 
from its present location. You can later go 
back and retrieve the file. It stores the 
file information in the SYS directory so if 
you erase that file you cannot restore the 
hidden files. 

ZAP This one also loses a file or di- 
rectory but you cannot restore it later on. 
Essentially if you zap a file you are 
committed . 

Notes about the manual 

They give plenty of ways to contact them 
such as Delphi and CompuServe accounts if 
you can't call them. However they answered 
all my questions when I called. They also 
give some inside information on OS9 file 
structure. They also explain why frag- 
mentation occurs which is useful to know 
since it has to come from somewhere. Lastly 
they give some other applications for their 
utility set which have nothing to do with 
repacking a drive. 

In summery this is an excellent set of 
utilities to manage a large floppy and/or 
hard disk. With so many hard drives out 
there a set of utilities like this is 
needed and definitely is on my "must have" 
list. The painful ways to fix this problem 
with many hours of formatting and swapping 
disks in & out is saved with these 
utilities. 

Floppy Disk Drive Controller 
CRC Ordinatater* Inc ♦ ( Disto) 
11 Boul. Des Laurentides 
Laval , Que 
Canada H7G 2S3 
Phone (514) 967-0195 

Requirements: A C0C0 1, 2 or 3 and a C0C0 
Compatible Floppy Disk Driv* 
with Cable 

Price: $74.95 US plus $4,00 S&H 

Reviewed by : Jim DeStafeno 

CRC produces three floppy drive con- 
trollers. Tandy thinks so much of their 
products the no-halt model can be ordered 
in any Tandy store. Of the three, this re- 
view is of their "Mini Controller 1"; their 
least expensive, latest controller offer- 
ing. 

As the C0C0 itself has been developing 
over the years, so too has its floppy drive 
controllers. First we had a plain vanilla 
controller. It did its job, but nothing 
more. Then came a "2 slot" version with 
manual switch. With it, one could use one 
of two different DOS ' s at the flip of a 
switch and a RESET. Then CRC introduced a 
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BEST PUBLIC DOMAIN PROGRAMS ■ 

FROM T&D SUBSCRIPTION SOFTWARE 



T&D SUBSCRIPTION SOFTWARE HAS ACCUMULA TED OVER 1. 000 PUBLIC DOMA 

PROGRAMS FOR THE COLOR COMPUTER. 

WE ARE SELLING 630 OF THE BEST. JUST THE GOOD STUFF ! 




Musk 17 




8 Utilities & 8 Songs 
17 Musica Files 
16 Musica Files 
16 Musica Files 
25 Orchestra Files 
23 .Bin Files Ready To Run 
23 .Bin Files Ready To Run 



ADVENTURES 1,2 

Each Disk/Tape Contains 
9 Great Adventures a\ 
Beady To Run ^jT^sSg 




Order A1 Or A2 <£§P^ 





TELECOMMUNICATIONS 1-3 



ivsai 

Cobster Terminal Package 
Mikeytar Terminal Package 




EDUCATION 1-4 



E1 - 12 Programs For Young Kids 

E2- 12 Programs For Hbh School Kids 

E3 - 11 Programs Teaching The Coco's Commands 
E4 • 5 Graphics Programs About Australia 



HOME MANAGEMENT 1-4 

■ 12 Programs Each Disk/Tape • 

H1 - Checkbook, Database, Word Processor, + 
H2 - Cash Journal, Investments, Mai! List, + 
H3 - Finance, Int. Rates, Stocks, + 
H4 - Spelling Fix, Spelling Checker, + 





■ft 



GRAPHICS 1-4 

GR1 - 12 Basic Graphic Programs 
GR2 - 12 Basic Graphic Programs 
GR3 - 9 Coco 3 Graphic Programs 
GR4 - 22 Coco Max Pictures 
GR5 - 22 Coco Max Pictures 
GR6 - 22 Coco Max Pictures 
GR7 - 15 Coco Max Pictures 
GR8 -22 .Bin Pictures 
GR9- 22 .Bin Pictures 
GR10- 14 Large .Bin Pictures 
GR11 - 8 Mge Pictures 
GR12 - Coco Max 3 Pictures 
GR13 - Macpaint Graphic Editor 
GR14 - 5 Macintosh Pictures 





UTILITIES 1-8 

♦ 12 Programs Each, 1-4 Require Disk • 

U1 - Backup35, Diskzapr, Romcopy, Timer, + 
U2 • Customize, Diskfix, Disktest, Multback, + 
U3 - Diskaid, Dsklibry, Mldata, Playmac, + 
U4 - Macpix, Stat-Log, Unarc, Unmaster, + 
U5 - Assemblr, Mcbase, Squeezw, Writer, + 
U6 - Chr-Ed3, Hgrcolor, Minidos, Updnlist, + 
U7 - Head Print With 30 Mini Pictures 
U8 - Fig Forth Language With Tutiorlal 



GAMES MI 

• Each Disk/Tape Contains 12 Programs • 

3DtIdac, Mlssle, Poker, Tycoon, + 
Chess, Motoiump, Rider, Slots, + 
Battshlp, Golf, Lander, Robots, + 
Abm, Cartel, Subchase, Trek, + 



GA1 - 
GA2- 
GA3- 
GA4 - 
GAS - 
GA6- 
GA7- 
GA8- 
GA9- 
GA10 
GA11 





Blackjack, Laser, Raceway, Utopian. + 
Kings, Navyguns, Pool a a me, Subs hip, + 
Connect4, F-16, Life, Mazeland, + 
Chute, Football, Othello, Slither, + 
Civilwar, Fliaht, Prix, Stock, + 
Cave, Fry, Pedro, Scramble, + 
Bunkers, Craps, Gunner, Nukeattk, + 




IIIIY ALL 53 
IHSKS/TAI'KS FOIL 
ONLY $.45.(10 




MAIL TO: 

T&D Subscription Software 
2490 Miles Standish Drive 
Holland, Michigan 49424 
(616) 399-9648 

Call or write for a FREE catalog ! 



PRICES: 
1- 5 disks/tapes.. ..$6. 00 each 

6 or more $5.00 each 

Ail 53 disks/tapes $145.00 
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Credit Card ft. 
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software (poke) controlled 4 slot version. 
This unit was (is) praised due to very low 
power consumtion. The power trick paved the 
way for the "Y" cable; which just about put 
the Multi-Pak out of business. 

Next, the CoCo-3 was introduced and 
keeping pace with the need, CRC introduced 
a 4 slot controller with no-halt. This im- 
provement allowed the 08-9 users to input 
on the keyboard during disk I/O. In ad- 
dition, an on-board clock would no longer 
lose time due to the CPU's diversion during 
I/O chores. (A little known fact, a no-halt 
floppy controller is not needed when using 
a SCSI hard disk controller. No-halt is 
built right in the interface.) 

CRC's newest floppy controller goes back 
to square one, 2 DOS slots with manual 
switch, but with an eye on price. However, 
just because it is the least expensive of 
the line, don't think it is on the low end 
of quality or performance. For my dollar 
this is the controller of choice. 

The first thing you will notice is the 
size; nearly 2 inches shorter then the nor- 
mal controller. Its nice to see a manu- 
facturer addressing one of the most often 
cited CoCo complaints. Your CoCo equipped 
with the Mini Controller will have 2 inches 
less sticking out its right side. 

The next unusual thing you will see is a 
little handle on one side of the con- 
troller. It is used to switch between the 
two slots. You'll also see a small phillips 
head screw on each side of the controller. 
Since it has 2 slots, the user is expected 
to open the box to install different DOS 
EPROMS. Detail on that trick below. 

The controller is made of strong white 
molded ABS plastic and has a pebbled sur- 
face that matches the texture of the area 
around the CoCo's keyboard. 

Before plugging the controller in, it 
would be a good idea to read through the 
distinctive black on yellow manual. There 
is just a page and a quarter of well 
written instructions detailing the fea- 
tures, installation and operation. 

The features list makes the old 2 sloter 
a real antique. This new product includes 
all the what-we-now-expect "good stuff": 

- Gold Connector Contacts, to eliminate 
corrosion which if unchecked causes massive 
I/O errors. 

- Low Power Draw, comes into play when 
the user piles on electrical "extras" like 
512K RAM, hard disk drive interface, a 
clock, etc. Installed extras put a higher 
demand on the computer's power supply. 
Though the CoCo-2 can produce more watts 
than the 3, neither will fry an egg. There- 



fore it is important to select those extras 
that have the lowest possible power draw. 

- Compatibility, with the original Tandy 
product specs. This feature not only means 
the unit works with all the floppy drives 
intended for use with the CoCo, but also 
works with all the CoCo's. That means if 
one has RGB-DOS in the operating slot or 
OS-9, disk I/O in the high speed mode will 
work just fine. In addition the controller 
offers one of the slots that will take two 
different size EPROMS, either a 24 or 28 
pin, therefore... 

- Any controller must have at least one 
DOS EPROM installed. This CRC offering in- 
cludes C-DOS or Tandy's DECB at no added 
cost; your choice. A DOS EPROM will cost at 
least $15.00, often more. 

- The other feature is quality and ex- 
perience. The board is a work of art I 
expect NASA would be proud to use. 

Getting it installed and working is as 
simple as can be. Remove the two screws on 
the side of the box, lift off the lid and 
pop in the DOSes of choice. I use RGB-DOS 
and C-DOS. I havn't found any program that 
won't run with one or the other. 

Put the lid back on, be sure the com- 
puter and floppy drive are turned OFF, 
plug the controller in the computer and the 
drive's cable in the controller, and turn 
all ON. The screen should light up with the 
message of the particular DOS installed. 

If the expected screen message doesn't 
show, there are three most likely problems. 

First: One or more of the three units 
are not plugged in to the wall and/or 
turned ON. 

Second: maybe one of the EPROM ' s pin's 
was misaligned during installation. Turn 
everything OFF, disconnect, pull the lid, 
check the pins in a good light. If a pin or 
two is not seated properly pull the EPROM, 
straighten the offenders with light pres- 
sure from a finger nail and reinstall; 
watching carefully to be sure all the pins 
are going in the socket correctly. 

The third possibility is a ribbon con- 
nector installed upside down. It is not 
logical to do that if the controller is 
being plugged in the computer, however the 
setup can look questionable when plugging 
into a "Y" cable. In both cases, just make 
sure the computer and controller are top 
side (pretty side) up. 

As easy as it is to plug the controller 
in the computer correctly, plugging in the 
drive connector correctly is difficult. 
Unless the disk drive supplier instructions 
tellshow to identify wire #1 and where it 
should be positioned, you are on your own. 
I guess I have had the drive connector 
installed upside down more then once with 
v no damaging results. So if all else is 
correct, turn everything OFF flip the cable 

Continued On 21 
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So/we Act 



Just what does it cost to reach the CoCo Market Place? 



Fact #1: There's been a LOT of talk of lata about the cost of reaching 

Color Computer users these days. Lots of numbers get tossed about 
- you know cost per hundred or cost per thousand. The problem 1a 
you still have to come up with hundreds of dollars just to 
get a single 1/4 page ad 1n some magazines. 

Fact 82: One shot ads usually don't produce enough return. The pro's know 
that 1t takes a minimum of 3 insertions to see results. 

Fact #3: Unless you have a rich uncle, or hit the lottery, buying space 1n 
other publications for 3 insertions takes a LOT of money. To buy 
3 insertions, 1/4 page in Clipboard is only $50.00 / per ad. 

Fact #4: Only Clipboard offers you money saving incentives to lower your 
ad bill even more. Plus we offer extended billing, fast friendly 
service and you talk to the "owners"' not order takers. 



Fact #5: The number of advertisers buying space in Clipboard Increases 

with every issue. Our subscriber count (which doesn't include rack 
sales as others do) goes up every Issue. Does it make any sense to 
buy space in a magazine with declining numbers? 



Stop staying up nights trying to figure out how to stay in the CoCo market! 
CoCo Clipboard Magazines Media Ad Pak and ALL the facts is only a phone 
call away. 

C T 1 6 ) e T 9 — O 12 6 9am to 9pm Eastern - Mon. thru Sat. 
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connector and turn all back ON. However, 
don't blame me or CCM if all blows up. It 
may be better to question the drive 
supplier . 

The manual stresses the need to care for 
the static electricity problem and being 
sure all your equipment is OFF when plug- 
ging the controller in or out of the 
computer, or the drive cable in or out of 
the controller. I've never had any trouble. 
I just touch noncritical parts of each item 
together before and while I am working. 

I keep a finger on the fat grounding 
tabs on the computer end of the board and 
another finger on the foam the EPROM is 
stuck in. Then I take the EPROM out of the 
foam with my thumb and forefinger, and 
touch my little finger to each of the 
grounding tabs. While putting the EPROM in 
the socket, I keep a finger of my free hand 
on one of the grounding tabs and try to 
keep my fingers from touching the pins of 
the EPROM. However, sometimes it happens. 
As I said, I've never blown an EPROM, but I 
expect it to happen everytime I do it. 

Anyway, once you see the screen message 
you are in business. When you want to 
change DOSes, CRC says to be sure all comes 
up correctly after the change, turn the 
computer OFF, flip the switch and turn the 
computer back ON. 

I guess there is no question that I 
recommend the purchase of the CRC Mini 
Floppy Disk Drive Controller. In fact, I 



put it as my first choice of all con- 
trollers offered for the CoCo. Considering 
the included DOS, it is the least 
expensive. Its quality is beyond reproach, 
and the design features have no peer except 
for the lack of no-halt. However, I expect 
most every serious CoCo user will opt for a 
hard disk drive sooner or later. When they 
do, the informed purchases will include a 
SCSI interf ace , and those interfaces in- 
clude the no-halt feature. 

What a novel combination. The best for 
the novice due to price and the best for 
the seasoned user because of the features. 
What more could one ask for? 

Ultra-Cat 

Tothian Software, Inc. 
Box 663 

Rimersburg , PA 16248 

Pgm. Type : Disk cataloger 

Requires : 64K Coco I/II, 128K Coco 3, 1 

* ' drive . . 
Price ; $24*95 

Rev iewed by 5 Dan Weaver 



ULTRA-CAT: HELP HAS ARRIVED FOR EVEN THE 
MOST DISORGANIZED DISK COLLECTION! 

A recent issue of PC Computing Magazine 
devoted several articles to the diffi- 
culties of finding a particular file when 
you have hundreds or even thousands of 

Continued On 22 
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files on a hard disk. I have found that it 
is even more difficult to find a "lost" 
file if your computer is a CoCo with one 
single sided floppy. It is more difficult 
because you can not organize your disks by 
using subdirectories unless you use OS-9 or 
some DOS other than Disk BASIC. It is also 
harder to look through 100 floppy disks for 
a particular file than it is through a 
single hard disk. 

Tothian Software has created a hybrid 
BASIC and ML program called ULTRA-CAT which 
creates a catalog of all your disks. You 
will need at least a 64K CoCo, and you must 
also own or be willing to purchase a com- 
panion Tothian program called ULTRA-BAS. 
ULTRA-CAT creates ULTRA-BAS files con- 
taining information about all of your disks 
and the programs on them. ULTRA-BAS is an 
easy to use but effective database program 
that can be used for much more than just 
keeping track of your disks. You can pur- 
chase both programs as a package for 
$39.95, or you can buy ULTRA-CAT separately 
for $24.95. 

ULTRA-CAT is very simple to use. The 
program has only one menu containing six 
options. Option one lets you switch from 
one drive to two drives, option two gives 
you a directory reading of drive 0, your 
third choice gives you a directory reading 
of drive 1, and option six allows you to 
exit the program. This leaves the two op- 
tions that you will use the most. 

Option four reads the directory of your 
disk and creates a seven category ULTRA-BAS 
file. The categories are file name, exten- 
sion, type of file (ML, BASIC, etc.) file 
format (ASCII or binary), file size, disk 
name and amount of free space on it, and a 
comment category which initially will have 
no information in it. 

Option five enables you to merge your 
ULTRA-BAS disk catalog files. This means 
you can create a very large file containing 
information about all your programs and 
files. There is a 32K limit, but even at 
that, you can have a file containing infor- 
mation about 1000 programs. This entire 
file can be in memory at one time. 

Before using ULTRA-CAT, you will need to 
give each disk a name or a number. Whenever 
you catalog a disk, ULTRA-CAT will prompt 
you for the name of that disk. Later on, if 
you have forgotten what disk a particular 
file is on, you can find it easily by using 
the ULTRA-BAS search feature. You can 
search your file by using any of the seven 
categories. If you search by file name, you 
only have to use part of the name. Wild- 
cards, however, are not allowed. When the 
computer finds the file that you are look- 
ing for, it gives you all the information 
about it, including what disk it is on. 



It takes very little time to catalog 
your disks. What takes time is entering 
comments about each program should you 
choose to do that using ULTRA-BAS. You may 
also delete or change some of the cat- 
egories. Using ULTRA-BAS you may alpha- 
betize your file, sort it, or print it out. 
ULTRA-BAS does not allow you to easily 
change your printer baud rate from within 
the program, so set it before you start. If 
you do forget to set it, you can press 
BREAK, set the baud rate, and return to the 
program by typing GOTO 7000. In fact any 
time you get any kind of error message, the 
program will abort, but you can return to 
it, without losing any data, by typing GOTO 
7000. 

There are a couple of things that you 
need to consider before you purchase ULTRA- 
CAT. First, it can't catalog OS-9 disks. 
This is not a major problem for most CoCo 
users. Secondly, it will not catalog double 
sided disks. For example, the backside of 
my drive 0 is drive 2. ULTRA-CAT only re- 
cognizes drive 0 and 1. I reconfigured the 
backside of my drive as drive 1 , but when I 
ran ULTRA-CAT, I was still unable to cat- 
alog the backside of my disk. 

It would also be nice if Tothian would 
produce a CoCo 3 version of ULTRA-CAT and 
ULTRA-BAS that would take advantage of the 
extra memory to create larger files, pro- 
vide support for an 80 column monitor, and 
have extensive error trapping so that the 
program would not abort when errors are 
made. Support for various disk drive con- 
figurations would also be a plus. 

Regardless of any shortcomings that 
ULTRA-CAT has, I still recommend it highly 
to anyone who is having difficulty keeping 
track of their programs and files. If you 
don't already own it, ULTRA-BAS will only 
cost you an extra $15 , and you can't 
ordinarily buy a database as good as 
ULTRA-BAS for such a small amount. You 
might be interested to know also that 
Tothian has developed other programs that 
are part of the ULTRA series. 

CoCo 
Clipboard 
Magazine 

S 4. 
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Paid Editorial by Terry Siaons, editor of the Hid Iowa CoCo's 
newsletter "The Upgrade"; where this article first appeared. Terry 
has also been active in CoCo Software authorship and sales. 

Jhmsiwa tfw free ! 
One Nation llntfer fim! 

We've come along way my 

fellow Americans. Our _ ^ x ^ ) I , _ *f/*\ 

educati^^ systems ^ have ^ 

Even though overwhelming figures show: using them would most likely 

save serious injury or our laves. We want the freedom to ignore the 

grief of those who love us. 
We want the right to bash our heads on the pavement when riding motor 

bikes. Masculinity and living stupid are synonymous, aren't they? 
We want the right to own automatic assault weapons. 

Which have about as much to do with personal protection and hunting 

firearms as owning a tank. After all the children in "our school"" 

haven't been massacred yet. 
We want the right to use drugs. Even if we operate passenger trains. 

Or at least be free of tests that would show us up, despite the 

previous disasters caused. Anyway it's the dealers not our fault. 
We seem to be loosing the right to get drunk and kill people. 

Some group called M.A.D. is getting upset because of their dead 

chi ldren . 

We see many parents having the right to sexually molest their 
children; upheld by some of the judges we intrust with making 
such decisions of wisdom. 

Freedom can very well be: "another word for nothing left to loose". 
Above all else, our children are guaranteed freedom from seeing anything 
suggesting the reality of our God: for seven of their 12 to 14 waking 
hours. As part of our higher education system. 

Go ahead and just chalk it up to irony. As prayers became absent from 
our classrooms, drugs became more prevalent in the hallways. To omit God 
from a part of a chi Ids day, is to teach the omission of God. 

Perhaps it is fitting that our high court has held it's ok to 
desecrate our flag. As we bulk at the idea of our children 
saying: "one nation under God" . Are we saying "hearing about 
God is like booze; you need to be 18 or 21 to handle it"? 
Personally; quoting chapter and verse for some reason, goes against my 
grain. I always feel like someone is trying to be God to me. I do 
however very seriously take to heart it's passages and their meaning. 
It does appear Christ became very upset when the children were prevented 
from seeing Him. I remember something about a millstone about the neck 
of those who would cause harm to children. Take a look for yourself; 
see what you thinkl 



Random Numbers 



Bob van der Poel 



Random numbers have many computer ap- 
plications. I'm sure you all know that most 
games rely on random numbers, but many 
application (for Rush this means "serious") 
programs also make use of them. Here are a 
few examples: 

- Some partition sort algorithms use a ran- 
dom number to create an initial partition, 

- A print formatter (VPRINT) I am in the 
process of finishing off uses a random num- 
ber to keep line justification balanced, 

- Educational programs which do quizzing 
use random numbers to select questions, 

- Computer simulations (especially queuing) 
depend on random numbers to simulate real 
world events. 

With this in mind, let's examine Basic09's 
RND( ) function. 

First, we should be aware that RND( ) always 
returns a REAL (or floating point) number. 
Prove this to yourself by running the fol- 
lowing program: 

PROCEDURE rndl 
FOR t=l TO 20 
PRINT RND(IOO) 
NEXT t 

Note that the results are always positive 
and always have a decimal portion. If you 
wish a value between 0 and 1, then use 
RND(O). At first blush it appears that 
RND(l) gives the same results as RND(O) 
however, sometimes a 1.0 will be returned. 

Random numbers in computers are not 
really random. For this reason they are 
often referred to as "pseudo-random. " This 
is because the method used to generate a 
value depends on a predefined mathematical 
sequence. If we know the original value of 
the number (the "seed") and the algorithm 
used we can predict the values which will 
be returned. Actually, it's quite easy to 
have Basic09 replicate a series of "random 
numbers". The following program will print 
the same 10 "random numbers" every time it 
is run: 



t=RND(-20) 
FOR t=l TO 10 

PRINT RND(IOO) 
NEXT t 

The trick here is the RND(-20) statement. 
Try it with other negative values. You'll 
see that different values will generate 
different series. 

Hmmm, here's an idea: build a coding 
machine which multiplies text by pre- 
dictable "random" values; to decode the 
second user only needs to know the negative 
number to use the program. Even the program 
could be public since without the key it 
would be nearly impossible to decode the 
message . 

One of the problems with most random 
number generators is that on startup they 
always return the same sequence of numbers. 
Basic09 is no different. For example, when- 
ever I start Basic09 RND(IOO) always 
returns 42.310425. For this reason I have 
written the following RANDOMIZE routine. It 
simply uses the current system time to re- 
seed the random number generator. One more 
reason to set the system time when starting 
BASIC09. 

PROCEDURE randomize 

DIM t: INTEGER 

FOR t=l TO LEN(DATE$) 

A=A+ASC ( MID$ ( DATE$ , t , 1 ) ) 

NEXT t 

A=RND( A ) 

END 

When you use RND you should remember 
that RND ( 5 ) will never return a value of 
5 — the values will be BETWEEN 0 and 5. For 
your reference, here are a few sample RND 
calls and the range returned: 



RND ( 5 ) 0 to 4 

FIX(RND(5)) 0 to 5 

FIX(RND(4) )+l 1 to 5 



999999 



Note that if A is an INTEGER then RND ( 5 ) 
will assign values from 0 to 5 . 

The program RndTest (see listing) tests 
the distribution of random values Basic09 
generates. To run it you will need an 80 x 



PROCEDURE rnd2 
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24 text screen. Try changing the line which 
reads : 

N=RND(79) 
to N=-8*LOG(RND(0) ) 

Note how the distribution of the values 
changes. This algorithm is used in queuing 
simulations when the chances of 1 person 
arriving is greater than 20, etc. 

The listing ShowDeal shows how random 
numbers can be used to simulate a deck of 
cards. Even if you are not interested in 
card games you should follow the logic 
through since a similar method can be used 
to select test questions, etc. 

Speaking of test questions, one of my 
children was having problems with her basic 
math skills. Clearly, she needed more 
practice, but writing out the sheets by 
hand was a bit too tedious. So I wrote a 
quickie Basic09 program to do it for me. 
MathSheet creates a worksheet with a series 
of simple math questions on it. Follow the 
prompts for the different types of sheets. 
MathSheet uses logic very similar to the 



CoCo Clipboard Magazine 

card program so that, unlike many programs 
of this type which I have seen, the program 
does not repeat questions. Have a look at 
the logic to see why. 

This month's challenge: How many other 
uses can you find for random numbers. Let 
me know and I'll feature some of the best 
or silliest in a future column — remember, 
computing should be fun. 

You can write me at either: 

P.O. Box 57, P.O. Box 355 

Wynndel, B.C., or Porthill, ID 

Canada VOB 2N0 USA 83853 




This program is available on ClipDisk. 
A single issue is just $9.95, a full year 
is only $49.95. Phone orders are 
accepted at (716) 679-0126 - please 
have your credit card ready You may 
also order by mail by enclosing your 



check or money order to CoCo Clipboard Magazine. 
Our address is 3742 US. 20, Box 3, Fredonia, NY 
14063 U.S.A. Slightly higher prices for overseas orders. 

van der Poel Continues on 26 



NOW ONE YEAR LIMITED WARRANTY ON ALL DISTO PRODUCTS 
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Mini Controller 

The No-Extra-Cost Controller A 

2 DOS Switcher (switch included) 
NO clumsy jumpers to move 
Accepts 24 or 28 pin EPROMs 

75$ DOS included (add 10$ for 2nd DOS) 



See page 123, March 89 Rainbow for more info 



RS-232 SuperPack 55$ 

■ A Stand-Alone (Mutti-Pak rqd.) adapter that gives 
the user a true RS-232 Serial Port. • Completely 
compatible with OS-9's ACIA software 




The only floppy disk Controllers that 
ELIMINATES the need of a Multi-Pak 



Compatible with software that requires 

tandy D< ' 
DB-25 cable included. 



the tandy Deluxe RS-232 Pack. 




Super Controller T 

Along with the included DOS, 
plug-in three more software selectable DOSes 
or 2764 or 27128 EPROMs burned to your liking. 

The interna! M.E.B. (Mini Expansion Bus) lets you add 
DISTO's incredible Super Add-ons. 

99.95 $/1 10$ (2 DOSes) 



See page 122, March 89 Rainbow for more info 
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RADIO SHACK (R) which has more experience 
with COCO controllers than any other supplier 
now carry the DISTO SUPER CONTROLLER H 




SUPER ADD-ONS 



Super Controller TT 

A\/A1l ADI tl AT \f r\ I ID H^fli 



MEB Adapter 35$ 

To plug into your DISTO Super 
Add-Ons (Multi-Pak required) 

Super RAM 3 ~~ 
ZeroK Board 25$ 

Free software included 

RGB to Monochrome 35$, 



Under OS-9: 



Video/Audio Adapter 

See page 123, March Rainbow 89 



NOW AVAILABLE AT YOUR 
LOCAL RADIO SHACK STORE 
Part no: 90-2009 

Buffered Read/Write sector achieved without halting the CPU. 
Continual use of keyboard even while reading or writing to disk 
System's clock no longer looses time during Read & Write 
■ NMI is blocked & transferred to IRQ in software 
for low CPU overhead. • Completely Interrupt driven for fast 
& smooth Multi-Tasking operations. 
• Drivers written by KEVIN DARLING 130$ 

r 



Don't let anyone tell you otherwise, the WD 1773 
does not have any problems with COCO 3s. 
!! Only bad designs do !! * 




3 in 1 Multl Board Adapter 

Tin 



Parallel Printer Port, Real Time Clock 
and a true RS-232 Serial Port. 
External DC adapter required. 
(OS-9 Driver included) 
Real Time Clock & Printer Interface 
OS-9 Driver (20$) 

Mini EPROM Programmer 
Hard Disk Adapter 

Works with SASI & SCSI interface. 
No Multi-Pak needed if used with SC1 or SC2. 
Compatible with RGB DOS and Burke & Burke 
Hyper I/O. OS-9 Driver included. 
Hard Disk Adapter with RS-232 



CRC COMPUTERS INC. 



^0 1 1 Boul. Dqs Laurentides, Laval, (Quebec), Canada H7G 2S3 
Call for Canadian Prices Include S&H of $4 or $8 if order exceeds $75 



NEW EXTENDED WARRANTY SERVICE: 

Any Disto Product serviced for flat rate of 20 $US 

(includes S/H). Call us for your R.M.A. number. 



Sorry: No personal cheques m cha QR7 fl1 QK 
tester Card and Visa Accepted JV'W/'M IsK) 
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TECHNO. LOG I E 5 



40 track-double sided drives-$34.95! 

New - fu(( height - limited quantifies available - 
Aviod the rush and order yours NOW! 

We also have used / fully tested drives available for only $24.95 each 



Telepak II $49.95 

The Telepak II is fast becoming the new standard for Color Computer 
Telecommunications. Baud rates to 19,200 baud. Comes complete with 3' DB25 cable 
that will connect directly with any standard modem or terminal. Uses the latest in 
microchip technology. Does NOT require a multipak interface. Gold connectors. 



2400 baud Modem $139.95 

300 /1 200 /2400 baud operation. Auto-dial /Auto answer. Hayes AT command set 
Complete with 2 year warranty and 6 foot cable. (4-pin or DB25- please specify) 



V -Term ....$39.95 

Version 3.02.00. Communicate with VAX, 
UNIX, & Mainframe and BBS Systems! 
Author -Tim Koonce . For RSDOS/COCO III 



Supercomm.*$29.95 

OS-9 Terminal package from StG 
Computers. For the OS-9 Power used 



Alpha Software 
Technologies 

Level II BBS Complete, ready to run! 
Includes ANSI menus /editor! $29.95 

Warp One Level II windowing 
terminal. Reqires 512k 



andRS232Pak. 



$34.95 



Visa - Mastercard - CO.D. & 
Personal Checks Accepted 



Cables & such 

4-pin - DB25 cable..$ 12.95 

(Specify Modem or Printer cable) 

DB25 M-M $9.95 

6 ft DB25 extension..$9.95 

Magnavox RGB $14.95 

Call for custom cables!!! 



P.O. Box 63196 
Wichita, KS 67203 
316-946-0440 
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Sports Card Filer 




Haverstock & Wills 



Is a huge baseball card collection 
driving you batty? Can you tackle questions 
about football cards in your collection? 
Sports Card Filer may be the answer to your 
needs. It is a full featured program that 
creates a random access file to store in- 
formation about your cards. The program 
includes routines to enter cards into the 
file, edit card information, examine cards, 
list cards, and print some or all of the 
cards contained in the file. Card infor- 
mation in this program was formatted to 
conform with The Official Price Guides. 

To start the program, run "CARDS". A 
main menu will appear listing the programs 
options. There is no need to enter a file- 
name when adding or examining cards. Cards 
are automatically saved in a file created 
by the program called "CARDS. FIL," Your 
card file can be saved on the program disk, 
but we recommend that you use a separate 
formatted disk for your files. A disk that 
only contains files should be able to store 
about 1200 cards. 



SELECT/REVIEW/EDIT 

This section of the program enables you 
to look at the cards in the file. To view 
the entire file, press <ENTER>. Cards can 
also be selected by the following criteria: 
card number, manufacturer, condition, year 
issued, year purchased, or player name. For 
example, you could list all the mint con- 
dition cards in your file. 

When the review screen appears, indi- 
vidual cards can be chosen by pressing the 
UP or DOWN arrow keys. The left and right 
arrow keys toggle between the two screens 
of information. 

Moving through the list is accomplished 
by using the options appearing at the bot- 
tom of the screen. FIRST and LAST move to 
the beginning or end of the current list. 

FORWARD and BACKWARD move up or down one 
screen (10 cards). UP and DOWN move the 
screen one line at a time. A DELETE option 
allows you to remove a card from the file. 
Pressing <ENTER> will close the file and 
return to the main menu. 



ENTERING CARDS 

To enter cards, choose this option at 
the main menu. There are two screens of 
information for each card. The first con- 
tains space to enter the following: card 
number, player name, condition, manufac- 
turer, and year issued. A help file gives 
more detailed information if needed. When 
you're finished entering the information on 
this screen, you may correct any informa- 
tion about the card or continue. 

The second screen contains other infor- 
mation about the cards, such as quantity, 
price paid, market value, year purchased 
and notes. Card quantity must be entered. 
You can enter information into the remain- 
ing fields or skip them by pressing 
<ENTER>. Since market value for cards often 
changes on a monthly basis, you may only 
want to enter price paid. Whenever enter- 
ing prices, be sure to do it in decimal 
form (ex. 2.50, .75, .05). When you're 
done with the second screen, you can cor- 
rect information, enter the next card, or 
return to the menu. The last card entered 
is always displayed until you leave this 
section. 



PRINT 

The print routine will print your entire 
list of cards or sort by the same criteria 
listed in the SELECT/REVIEW/EDIT section. 
For example, you could print all the 1988 
cards in your collection. 

The baud rate is currently set at 600 
baud. If your printer is capable of higher 
baud rates, change line 5020 to: 

POKE 150,1 (for 9600 baud) 
POKE 150,18 (for 2400 baud) 
POKE 150,40 (for 1200 baud) 

The card list is printed in a table for- 
mat with headings. You can use these 
printed lists for inventories or insurance 
purposes, trade lists, or sale lists for 
card shows. A running total of cards, value 
and price are printed at the end of the 
list . 



HINTS & TIPS 

Important! Be sure to return to the main 
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menu before exiting the program. This is 
necessary to close the files you've been 
working on. If you should accidentally turn 
off the computer or exit the program using 
the < BREAK > key, you'll need to delete a 
temporary file on your data disk named 
REVIEW. FIL. To do this, type KILL" REVIEW . 
FIL". This will restore the card file to 
its original state and prevent possible 
errors when the program is run again. If 
you collect sets, they can also be entered 
into the file. Substitute 000 for the 
player number, and type in the name of the 
set in place of the player name. Example: 
000, Traded Set. Enter the rest of the 
information as you normally do for cards. 

ClipDisk includes a sample file compiled 
by James Haverstock. You can use it to 



practice using the program and its func- 
tions. Be sure to delete this file before 
starting your own card file. 



This program is available on ClipDisk. 
A single issue is just $9.95, a full year 
is only S49.95. Phone orders are 
accepted at (716) 679-0126 - please 
have your credit card ready. You may 
also order by mail by enclosing your 
check or money order to CoCo Clipboard Magazine. 
Our address is 3742 U.S. 20 ? Box 3, Fredonia, NY 
1 4063 U.S.A. Slightly higher prices for overseas orders. 




10 REM **MAXN MENU MODULE** 
20 GOTO 8000 

30 CLS : PRINT® 1 97 , "REMOVE PROGRAM 
DISK" : PRINT®229 , "& INSERT DATA 

DISK" :PRINT®261 , "INTO DISK DRIVE 
0. " : PRINT®450 , "PRESS ANY KEY TO 
CONTINUE " 

40 IF LEN(INKEY$)=OTHEN 40 

50 CLEAR 10000:L$=STRING$(32,61 ) 

:CL$=STRING$(32, 143) 

60 CLS:PRINT®0, "** SPORTCARDS FI 

LER MAIN MENU **" : PRINT®32 , STRIN 

G$(32,61 ) 

70 PRINT® 130, "WHAT DO YOU WANT T 
O DO?":PRINT®196,"1 ) ENTER NEW C 
ARDS" : PRINT®228 , "2 ) SELECT/REVIE 
W/EDIT CARD" :PRINT®260, "3) PRINT 
LISTING OF CARDS" : PRINT®292 , "4 ) 
END PROGRAM AND EXIT" : PRINT®354 
."SELECT BY NUMBER (1-4)" 
80 PRINT®416, "note: BE SURE TO R 
ETURN TO THIS" 

90 PRINT®448, "SCREEN BEFORE EXIT 
ING PROGRAM!" 

100 A$=INKEY$:IF A$=""THEN100 
110 ONVAL(A$) GOT0130,140,140,15 

0 

120 GOTO100 
130 GOTO1010 

140 M=VAL(A$) :P0KE481 ,M:GOTO6010 
150 CLS : PRINT" ARE YOU SURE (Y/N) 

160 A$=INKEY$:IF A$=" "THEN 160 

170 IF A$="N" OR A$="n"THEN 60 

180 UNLOAD0 : UNLOAD1 : END 

1000 REM **ENTER CARDS MODULE** 

1010 GOSUB 2250:R=LOF(1):IF R=0 

THEN CLOSE* 1 :GOT01 070 

1020 IF R=>1200 THEN CLOSE* 1 : GOT 

01040 

1030 GET#1 ,R:C1$=CN$:P1$=PN$:CLO 
SE#1 :GOTO1070 

1040 CLS:PRINT®197,"FILE IS FULL 
, PLEASE" ; : PRINT©229 , " INSERT A F 
ORMATTED" ; :PRINT®261 , "DISK IN DR 
IVE 0 . " ; : PRINT®450 , "PRESS ANY KE 
Y TO CONTINUE"; 

1050 A$=INKEY$ : IF A$=" " THEN 1050 
1060 GOTO1010 

1070 R=R+1 : CLS : PRINT " ENTER CARDS 
" ; : PRINT® J 8 , "ENTRIES : "R ; :PRINT®3 
2,L$; 



1080 PRINT964, "CARD N0.:";:PRINT 

®96 , "PLAYER NAME : ; : PRINT01 28 , "C 

ONDTION : " ; : PRINT«1 60 ," ISSUER : " ; : 

PRINT91 92 , "YEAR ISSUED : 1 9 ";: PRIN 

T®224,L$; 

1090 GOSUB2200 

1100 PRINT076, ; : LINEINPUTC$ : F=0 : 
G0SUB1470 

1110 PRINTO108, ; : LINEINPUTP$ : GOS 
UB1510 

1120 PRINT9140, ; : LINEINPUTG$ : GOS 
UB1590 

1130 PRINT9172, ; :LINEINPUTI$:GOS 
UB 1630 

1140 PRINT®206, ; : LINEINPUTY$ : F= 1 
: GOSUB 1670 
1150 GOSUB 2250 

1160 LSET CN$=C$:LSET PN$=P$:LSE 
T CD$=G$:LSET IR$=I$:LSET YI$=Y$ 
1170 GOSUB 2280 
1180 GOSUB2240 

1190 PRINT«292, "WHAT DO YOU WANT 
TO DO?";:PRINT®358,"1) CONTINUE 
ENTERING DATA" ; : PR I NT® 3 90 , " 2 ) C 

ORRECT DATA" :PRINT®452, "SELECT B 

Y NUMBER (1-2)"; 

1200 A$=INKEY$:IFA$=""THEN1200 

1210 IF A$="1 "GOTO 1240 

1220 IF A$="2"GOT01370 

1230 GOTO1200 

1240 F0RX=64 TO 448STEP32 : PRINT® 
X,CL$; :NEXTX:PRINT®64, "QUANTITY: 
" ; : PRINT«96 , "MARKET VALUE : " ; : PRI 
NT®1 28, "PURCHASE PRICE: "; : PRINT® 
160, "YR. PURCHASED: 19"; : PRINT® 19 
2 , "NOTES : " ; : PRINT«224 , L$ ; : GOSUB2 
200 

1250 PRINT®79, ; : LINEINPUTQ$ : F=2 : 
GOSUB1710 

1260 PRINT©111,;:LINEINPUTV$:F=3 
:GOSUB1750 

1270 PRINT«143, ; :LINEINPUTP$:F=4 
:GOSUB1780 

1280 PRINT«176, ; :LINEINPUTY$:F=5 
:GOSUB1670 

1290 PRINT®206, ; : LINEINPUTN$ : GOS 
UB1810 

1300 GOSUB 2250 

1310 LSET QY$=G$:V=VAL(V$):LSET 
MV$=MKN$(V):P=VAL(P$):LSET PP$=M 
KN$(P):LSET YP$=Y$:LSET RK$=N$ 
1320 GOSUB 2280 

1330 FOR X=288T0448STEP32: PRINT® 



X,CL$; :NEXTX:PRINT®260,"WHAT DO 
YOU WANT TO DO? " ; : PR I NT® 3 2 6 , " 1 ) 
ENTER A NEW CARD" ; : PRINT®358 , " 2 ) 
CORRECT DATA" ;:PRINT«390,"3) RE 
TURN TO MAIN MENU"; : PRINT®452 , "S 
ELECT BY NUMBER (1-3)"; 
1340 A$=INKEY$:IF A$= " "THEN 1340 
1350 ON INSTR( " 1 23" , A$ )GOT0101 0 , 
1420,2310 
1360 GOTO1340 

1370 E=1 :GOSUB2240:PRINT«257, "WH 
AT DO YOU WANT TO EDIT? ";: PRINT® 
322, "1 ) CARD NO. 2) PLAYER NA 
ME" ; :PRINT®354, "3) CONDITION 4 
) ISSUER" ; : PR I NT® 386 , "5 ) YEAR IS 
SUED 6) EXIT EDIT" ; : PRINT®449 , "S 
ELECT BY NUMBER (1-6)"; 
1380 A$- INKEY$ : I F A$=" "THEN1 380 
1390 ON INSTR("12345",A$)GOTO110 
0,1110,1120,1130,1140 
1400 IF A$="6"THEN E=0:GOTO1150 
1410 GOTO1380 

1420 E=2 : GOSUB2240 : PRINT®257 , " WH 
AT DO YOU WANT TO EDIT?"; : PRINT® 
322, "1 ) QUANTITY 2) VALUE"; : PR 
INT®354,"3) PRICE 4) YEAR"; 

:PRINT®386, "5) NOTES 6) EXI 

T EDIT" ; :PRINT®449, "SELECT BY NU 
MBER (1-6)"; 

1430 A$=INKEY$:IF A$= " "THEN1 430 
1440 ON INSTR("12345",A$) GOT012 
50, 1260,1270,1280,1290 
1450 IF A$="6"THEN E=0:GOTO1330 
1460 GOTO1430 

1470 IF C$="H"OR C$="h"GOSUB2080 
:GOTO1100 

1480 IF LEN ( C$ ) =0GOSUB2050 : GOT01 
100 

1490 IF LEN(C$)>3GOSUB2030:GOTO1 
100 

1500 F$=C$:GOTO1840 

1510 IF P$="H"OR P$="h"GOSUB2090 

:G0T01110 

1520 IF LEN(P$)=0 GOSUB2050 : GOTO 
1110 

1530 IF LEN(P$)<=17 GOTO 1580 
1540 L=LEN(P$):N=INSTR(P$,CHR$(3 

2)) 

1550 P2$=RIGHT$(P$,L-N+1 ):P1$=LE 
FT$(P$, 1 )+CHR$(46) 
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Continued From 30 

***"OR C=1 THEN SOUND120,3:RETUR 
N 

3§30 SOUND1 30 , 2 : PRINT®480 , "DELET 

E THIS CARD ( Y/N )? " ; 

3640 AN$=INKEY$ 

3650 IF AN$="Y"GOTO3680 

3660 IF AN$ = "N"GOT037 10 

3670 GOTO3640 

3680 R$="*** DELETED *** ":Z=Z+1 

3690 LSETPN$=R$:PUT#1 ,X 

3700 PRINT«L+5,R$; 

3710 T=VAL(REC$) 

3720 OPEN"D" ,#2 , "CARDS/FIL" , 50 

3730 FIELD#2,50 AS INFO$ 

3740 LSETINF0$=R$:PUT#2,T 

3750 CL0SE#2 

3760 PRINT®480," 1 sT-LaST-f WD-bW 
D-uP-dN-DEl-eND" ; : S0UND1 20 , 3 : RET 
URN 

3770 IFC=0THENSOUND120,3:RETURN 
3780 O1=L:O2=2:S1=0 
3790 GOSUB4360 

3800 Q$=O7$:GOSUB4170:LSETQY$=Q$ 
:PUT#1 ,X 

3810 T=VAL(REC$):GOSUB3890:LSETY 
$=Q$ : PUT#2 , T : CL0SE#2 
3820 RETURN 

3830 IF C=0THENSOUND120,3:RETURN 
3840 01=L+3:02=6:S1=3 
3850 GOSUB4360 

3860 V=VAL(07$) : G0SUB41 70 : LSETMV 
$=MKN$(V):PUT#1 ,X 

3870 T=VAL(REC$):GOSUB3890:LSETV 
$=MKN$ ( V ) : PUT#2 , T ; CL0SE#2 
3880 RETURN 

3890 OPEN"D" ,#2, "CARDS/FIL" ,50 
3900 FIELD#2,26 AS INF0$,2 AS Y$ 
,5 AS V$,5 AS P$,2 AS YP$,10 AS 
K$ 

3910 RETURN 

3920 IF C=OTHENSOUND120,3:RETURN 
3930 01=L+21 :O2=10:S1=21 
3940 GOSUB4360 

3950 N$=O7$:GOSUB4170:LSETRK$=N$ 
:PUT#1 ,X 

3960 T=VAL(REC$) : GOSUB3890 : LSETK 

$=N$:PUT#2,T:CLOSE#2 

3970 RETURN 

3980 IF C=1 THEN SOUND1 20 , 3 : RETU 
RN 

3990 GOSUB4170 

4000 IF LEFT$(PN$,3)="***"THEN S 
OUND120,3:RETURN 

4010 PRINTG64 , "QTY VALUE PRICE 
YR NOTES " ; :PRINT«480, "EDI 
T: qTY . -vALUE-nOTES "; 
4020 PRINT«128+D1*32 ,STRING$(32, 
143); 

4030 PRINT9128+D1*32,QY$; :PRINT« 
1 30+D1 *32 , USING"#### . ## " ; CVN ( MV$ 
) ; :PRINT«138+D1*32,USING"####.## 
";CVN(PP$); 

4040 PRINT«146+D1*32,YP$; :PRINT® 

150+D1*32,RK$; 

4050 C=1 :SOUND1 30, 1 : RETURN 

4060 IF C=0THEN SOUND1 20 , 3 : RETUR 

N 

4070 GOSUB4170 

4080 PRINT«64," NO. PLAYER NA 
ME COND YR I " ; : PRINTG480 , " 1 sT 
-LaST-f WD-bWD-uP-dN-DEI-eND" ; 
4090 PRINT«128+D1*32,STRING$(32, 
143); 

4100 PRINT9129+D1*32,CN$; 
4110 PRINT<»133+D1*32,PN$; 



4120 PRINT«150+D1*32,CD$; 
4130 PRINT«155+D1*32,YR$; 
4140 PRINT9158+D1*32,IR$; 
4150 PRINTSL, ">"; 
4160 C=0 :SOUND1 30, 1 : RETURN 
4170 X=(((L-128)/32)+1 )+(R-D) 
4180 GET* 1 ,X 
4190 RETURN 

4200 IF C=1 THEN SOUND 120,3:RET 
URN 

4210 CLOSE:KILL"REVIEW/FIL":IF Z 
=0GOTO4340 

4220 CLS : PRINT® 2 29 , "ONE MOMENT P 
LEASE! ! ! "; 
4230 J=0:T=0 
4240 GOSUB7040 

4250 OPEN"D",#2, "UPDATE/FIL " , 50 
4260 FIELD#2,50 AS UINFO$ 
4270 FOR T=1TO LOF( 1 ) 
4280 GET#1 ,T 

4290 IF LEFT$(INFO$,3) = "*** , 'THEN 
4310 

4300 LSETUINFO$=INFO$: J=J+1 :PUT# 
2, J 

4310 NEXT 
4320 CLOSE 

4330 KILL"CARDS/FIL" :RENAME"UPDA 

TE/FI L "TO"CARDS/FIL" 

4340 GOTO50 

4350 REM lineinpt 

4360 07$=STRING$(02,32):03=1 

4370 PRINTS01 ,07$; 

4380 PRINT303+01-1 ,CHR$(62); :01$ 

=INKEY$ : IF01$=" "THEN4380ELSEIFO1 

$>CHR$( 31 )AND03<=02 THENMID$(07$ 

,03)=01$:PRINT«03+01-1 ,01$; :03=0 

3+1 :GOTO4380 

4390 IF01$=CHR$( 1 3 )THEN : 07$=LEFT 
$(07$, 03-1 ) :S=LEN(07$) :PRINT®L+( 
S+S1 ) ,CHR$( 143) ; : RETURNELSEIF01 $ 
=CHR$( 21 )THEN PRINTGL+ ( S+S1 ) , CHR 
$( 143) ; :GOTO4360ELSEIFO1$=CHR$(8 
)AND03>1AND03<=02 THENMID$(07$ , O 
3)=" " :03=03-1ELSEIF01$=CHR$(8)A 
ND03>1 THEN03=03-1 
4400 GOTO4370 

5000 REM ** PRINT MODULE ** 

5010 CLS : PRINTG233 , "PRINTING" 

5020 POKE 150,87 

5030 PL$=STRING$(80,61 ) 

5040 GOSUB 7010:R=0 

5050 PRINT#-2 , TAB( 24 ) , "SPORTCARD 

S FILER":PRINT#-2,PL$ 

5060 PRINT#-2 , "CARD* PLAYER NA 

ME COND YEAR ISSUER QUAN 

VALUE PRICE YR REMARKS" : PR 
INT#-2,PL$ 
5070 R=R+1 :GET*1 ,R 
5080 PR I NT*- 2 , USING" % %";CN$; 
:PRINT*-2, USING"* 

*";PN$; :PRINT*-2, USING"* *";CD 
$; :PRINT*-2,USING"19* %" ;YR$; :GO 
SUB 5160:PRINT*-2,USING"* 

%";I$; :PRINT*-2, USING" % *" ;OY 
$; : PRINT#-2 , USING" **#.**"; CVN(M 
V$ ) " 

5090 PRINTS- 2 , USING" #**.**" ; CV 
N ( PP$ ) ; : PRINT*- 2 , USING" * *";YP 
$; : PRINT*-2 , USING"* *"; 
RK$ 

5100 Q=VAL(QY$) :V=CVN(MV$) :P=CVN 
(PP$) :Q1=Q1+Q:V1=V1+(V*Q) :P1=P1+ 
(P*Q) 

5110 IF LOF(1 )=R THEN5130 
5120 GOTO5070 

5130 PRINT*-2,TAB( 105), "TOTALS = 
==>" ; :PRINT*-2, USING"****" ;Q1 ; :P 
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RINT#-2, USING" ****.**";V1 ; :PRIN 

T*-2 , USING" ****.*#";P1 

5140 CLOSE* 1 :KILL"REVIEW.FIL":GO 

TO50 

5150 END 

5160 N=INSTR("BDFLOTSP ,, ,IR$) 
5170 FOR X=1TO N : READI$ : NEXT : RES 
TORE: RETURN 

5180 DATA BOWMAN, DONRUSS, FLEER, L 
EAF , O-PEE-CHEE , TOPPS , SCORE , SPORT 
FLICS 

6000 REM **SELECT MODULE** 
6010 CLS:PRINT@132, " REVIEW CARD 
S BY: " ; :PRINT#196, " 1) CARD NUM 
BER " ; :PRINT9228, " 2) PLAYER 
NAME "; :PRINT®260," 3) ISSUE 

R " ; :PRINT«292, " 4) CONDITI 

ON ":PRINT®324," 5) YEAR 

ISSUED" 

6020 PRINT9356," 6) YEAR PURCHAS 
ED" 

603,0 PRINTQ451 , "SELECT BY NUMBER 

OR PRESS <ENTER> FOR ALL 

CARDS. " ; 

6040 A$=INKEY$:IFA$=""THEN6G40 
6050 ON INSTR( "123456" ,A$)GOTO 6 
080,6140,6180,6220,6260,6290 
6060 IF A$=CHR$(13) GOTO 6320 
6070 GOTO 6040 

6080 CLS:PRINT©132,"REVIEW BY CA 
RD NUMBER" 

6090 PRINTG224, "BEGINNING CARD N 
UMBER : " ; : LINEINPUTC1$:GOT061 10 
6100 PRINTG288," ENDING CARD N 
UMBER: " ; : LINEINPUTC2$ : GOT06 1 20 
6110 IF VAL(C1$)<=0 THEN 6090 EL 
SE 6100 

6120 IF VAL(C2$)<=VAL(C1$) THEN 
6090 

6130 GOSUB 6440:GOTO6340 

6140 CLS : PR I NT® 1 32 , "REVIEW BY PL 

AYER" 

6150 PRINT9224, "ENTER PLAYER: "; 
:LINEINPUTC1$ 

6160 IF LEN(C1$)<16 THEN C1$=C1$ 

+" ":GOTO6160 

6170 GOSUB 6440:GOT06340 

6180 CLS : PR I NT® 1 32 , "REVIEW BY IS 

SUER" 

6190 PRINT3224, "ISSUER NAME: ";: 

LINEINPUT C1$ 

6200 C1$=LEFT$(C1$,1 ) 

6210 GOSUB6440:GOTO6340 

6220 CLS : PR I NT© 1 32 , "REVIEW BY CO 

NDITION " 

6230 PRINTG224, "ENTER CONDITION: 

"; : LINEINPUT C1$ 
6240 IF LEN(C1$)<4 THEN C1$=C1$+ 
" ":GOTO6240 
6250 GOSUB6440:GOTO6340 
6260 CLS: PRINT«1 32, "REVIEW BY YE 
AR ISSUED" 

6270 PRINTQ224, "ENTER YEAR ISSUE 

D: 19"; :LINEINPUT C1$ 

6280 GOSUB6440:GOTO6340 

6290 CLS:PRINT«132,"REVIEW BY YE 

AR PURCHASED" 

6300 PRINTG224, "ENTER YEAR PURCH 

ASED: 19"; : LINEINPUT C1$ 

6310 GOSUB 6440:GOTO6340 

6320 CLS : PRINT3230 , "REVIEW ALL C 

ARDS" 

6330 GOSUB6440:GOTO6580 
6340 J=0 

6350 FORT=1 TO LOF( 1 ) 
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ATTENTION SCULPTOR USERS 



DO YOU NEED MORE? 

Here's A Special Offer. Get A FREE CSG IMS Demo! 

Flexibility Powerful Free Demo 



The CSG IMS Information 
Management System incorporates a 
full-featured procedural 
programming language. This 
incredibly robust compiled 
language gives you application 
flexibility that is unprecedented in 
the OS9 software arena. 



Easy Forms 

Need a complex screen form 
layout? It's easy! Just 'paint' it on 
the screen and CSG IMS will do 
the rest. Printed reports are just as 
quick and easy. Of course, you can 
further customize screen forms and 
reports with CSG IMS's 
programming language. 



Databases 

CSG IMS's remarkable database 
structure provides excellent 
performance, multi-user file access, 
and a ruggedness that makes it 
almost impossible for you to lose 
your data. And it's huge record and 
file size capabilities can handle 
even the most complex applications 
with ease. 



And More 

But there's much more to 
CSG IMS than we can 
describe in this 
space. 



So to let you find out for yourself, 
we are offering a free demo copy of 
CSG IMS. Just send us a proof of 
purchase for Sculptor, or any other 
OS9 database product, and we'll 
send you a demo disk and full 
manual AT NO CHARGE! Please 
by sure to specify your system type, 
disk size, and OS9 version with 
your order. 

Clearbrook Software Group Inc. 

USA: P.O. Box 8000499, Sumas, WA 98295-8000 
CANADA: P.O. Box 8000499, Abbotsford, B.C. V2S 6H1 
TELEPHONE: (604) 853-9118 
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1 560 N$=P1$+P2$ 

1570 PRINT©108,N$:P$=N$:GOTO1530 
1580 IF E=1GOTO1370ELSE2200 
1590 IF G$="H"OR G$="h" GOSUB210 
0:GOTO1 120 

1600 IF LEN(G$)=0 GOSUB2050 : GOTO 
1120 

1610 IF G$="MT"ORG$="NRMT"ORG$=" 
EX " ORG$ = " VG " ORG$ = " G " ORG$ = " F H GOTO 
1 620ELSEGOSUB2050 : GOT01 1 20 
1620 IF E=1GOTO1370ELSE2200 
1630 IF I$="H"OR I$="h"GOSUB21 10 
: GOTO 11 30 

1640 IF LEN(I$)=0 GOSUB2050 : GOTO 
1130 

1650 IF I$="B"ORI$="D"ORI$="F"OR 
I$="L"ORI$="0"ORI$="T"ORI$="S"OR 
I$="P"GOTO1660ELSEGOSUB2050:GOTO 
1 130 

1660 IF E=1GOTO1370 ELSE2200 
1670 IF Y$="H" OR Y$="h"GOSUB 21 
20: IF F=5GOTO1280ELSE1 140 
1680 IF LEN(Y$)=10R LEN(Y$)>2GOS 
UB2020:IF F=5GOT01 280ELSE1 1 40 
1690 IF LEN(Y$)=0 AND F=1GOSUB20 
50:GOTO1140 ELSE IF LEN(Y$)=0 AN 
D F=5 THEN Y$="**" : PRINT©1 76 , Y$: 
GOTO1830 

1700 F$=Y$:GOTO1840 

1710 IF Q$="H"OR Q$="h"GOSUB2130 

:G0TO1250 

1720 IF LEN(Q$)=0GOSUB2050:GOTO1 
250 

1730 IF LEN(Q$)>2GOSUB2010:GOTO1 
250 

1740 F$=Q$:GOTO1840 

1750 IF V$="H"OR V$="h"GOSUB2140 

:GOTO1260 

1760 IF LEN(V$)=0 THEN V$="0.00" 

:PRINT®1 1 1 ,V$ 

1770 F$=V$:GOTO1930 

1780 IF P$="H"OR P$="h"GOSUB2150 

:GOTO1270 

1790 IF LEN ( P$ ) =0THEN P$="0.00": 

PRINT9143,P$ 

1800 F$=P$:GOTO1930 

1810 IF N$="H* , ORN$="h"GOSUB2170: 

GOTO1290 

1820 IF LEN(N$)>10GOSUB2070:GOTO 
1290 

1830 IF E=2GOTO1420ELSE2200 
1840 L=LEN(F$) 
1850 FORX=1TOL 

1860 IF ASC(MID$(F$,X,L) )<48 OR 
ASC(MID$(F$,X,L))>57 THEN X=L:GO 
TO1880 

1870 NEXT : IF E= 1 GOT01 370ELSEIF E 

=2GOTO1420ELSE2200 

1880 GOSUB2040 

1890 IF F=0 GOT01100 

1900 IF F=1 GOTO1140 

1910 IF F=2 GOTO1250 

1920 IF F=5 GOTO1280 

1930 L=LEN( F$ ) 

1940 FORX=1TOL 

1950 IF ASC(MID$(F$,X,L))=>58AND 
ASC(MID$(F$,X,L))<=90 OR ASC(RI 
GHT$(F$,3))<>46 THENX=L : GOT01 970 
1960 NEXT:GOTO2000 
1970 GOSUB2060 
1980 IF F=3 GOTO1260 
1990 IF F=4 GOTO1270 
2000 IF E=2THEN1420ELSE2200 
2010 GOSUB21 90 : PRINT©356 , "ENTER 
ONLY TWO DIGITS ":GOTO2220 



2020 GOSUB2 1 90 :PRINT©359, "ENTER 
AS TWO DIGITS" :GOTO2220 
2030 GOSUB21 90 : PRINT©356 , "ENTER 
ONLY THREE DIGITS .": GOTO2220 
2040 GOSUB 2190:PRINT©356,"PLEAS 
E ENTER ONLY NUMBERS .": GOTO2220 
2050 GOSUB2 1 90 : PRINT9356 , M PLEASE 

ENTER AS REQUESTED" :GOTO2220 
2060 GOSUB2190:PRINT©356, " ENTE 
R AS DOLLAR AMOUNT" :GOTO2220 
2070 GOSUB2 1 90 : PRINT©356 , "ENTER 
ONLY 10 CHARACTERS" :GOTO2220 
2080 GOSUB21 80: PRINT9356 , "THIS I 
S THE CARD NUMBER" : RETURN 
2090 GOSUB21 80 : PRINT©356 , "NAME O 
F PLAYER ON CARD": RETURN 
2100 GOSUB2 1 80 : PRINT9353 , "MINT 

~MT VERY GOOD-VG" : PRINT© 

385, "NEAR MINT-NRMT GOOD 
-G" : PRINT941 7 , "EXCELLENT-EX 

FAIR -F": RETURN 

2110 GOSUB2100:PRINT©353, "B=BOWM 
AN D=DONRUSS F=FLEER" : PRINT© 
385,"L=LEAF 0=0-PEE-CHEE T=TO 
PPS" :PRINT©417, "S=SCORE P=SPOR 
TFLICS" : RETURN 

2120 GOSUB2 1 80 : PRINT9357 , "YEAR P 

RINTED ON CARD": RETURN 

2 1 30 GOSUB2 1 80 : PRINT9357 , "NUMBER 

OF CARDS ON HAND" : RETURN 
2140 GOSUB21 80 : PRINT9357 , "CURREN 
T VALUE OF CARD" :RETURN 
2150 GOSUB21 80 : PRINT©357 , "COST O 
F CARD" : RETURN 

2160 GOSUB2 1 80 : PRINT9357 , "YEAR C 

ARD WAS PURCHASED" : RETURN 

2170 GOSUB 2180:PRINT©356, " EN 

TER ANY COMMENTS" : RETURN 

2180 FORX=256 TO 479STEP32 : PRINT 

©X,CL$; :NEXT:PRINT©296,"** HELP 

FILE **" : PRINT0448 , L$ ; : RETURN 

2190 FORX=256T0384STEP32:PRINT9X 

,CL$; :NEXT:SOUND120,3:PRINT©296, 

"** ENTRY ERROR **":RETURN 

2200 E=0:PRINT®296, "** LAST ENTR 

Y **" :PRINT9356, "CARD NO. PLAY 

ER NAME" 

2210 PRINT9390,C1$:PRINT9399,P1$ 
2220 PRINT©416,L$ 

2230 PRINT«456, "PRESS H FOR HELP 
"; : RETURN 

2240 FOR X=256T0448STEP32: PRINT© 

X,CL$; :NEXTX: RETURN 

2250 OPEN"D",#1 , "CARDS/FI L" , 50 

2260 FIELD#1,3 AS CN$,16 AS PN$, 

4 AS CD$,1 AS IR$,2 AS YI$,2 AS 

QY$,5 AS MV$,5 AS PP$ , 2 AS YP$,1 

0 AS RK$ 

2270 RETURN 

2280 PUT #1 ,R 

2290 CLOSE#1 

2300 RETURN 

2310 CLOSE 

2320 GOTO50 

3000 REM **REVIEW/EDIT CARDS MOD 
ULE** 

3010 GOSUB 7010 

3020 R=0:D=0:L=128:2=0:C=0:D1=0 
3030 CLS:PRINT©9, "REVIEW CARDS"; 
:PRINT©32,L$; 

3040 PRINT©65 , "NO. PLAYER NAME 

COND YR I"; 
3050 PRINT996,L$:PRINT©448,L$; 
3060 PRINTO480," 1 sT-LaST-f WD-bW 
D-uP-dN-DE 1 -eND" ; 
3070 GOSUB3150 

3080 A$=INKEY$:IF A$= " "THEN3080 



3090 IF A$=CHR$(10)THEN POKE342 , 
255:GOSUB3320 

3100 IF A$=CHR$(94)THEN POKE341 , 
255:GOSUB3360 

3110 IF A$=CHR$(8) GOSUB3980 
3120 IF A$=CHR$(9) GOSUB4060 
3130 ON INSTR( "SAFBUDLQVNE" , A$ )G 
OSUB3470 , 3500 , 3400 , 3430 , 3590 , 356 
0,3620,3770,3830,3920,4200 
3140 GOTO3080 
3150 GOSUB 3250 
3160 R=R+1 

3170 IF LOF(1)=0 THEN 3610 

3180 GET#1 ,R 

3190 PRINT©129+D*32,CN$; 

3200 PRINT0133+D*32,PN$; 

3210 PRINT©150+D*32,CD$; 

3220 PRINT©155+D*32,YR$; 

3230 PRINT9158+D*32, IR$; 

3240 D=D+1 :GOTO3290 

3250 FORBG=128T0416STEP32 

3260 PRINT©BG,CL$; 

3270 NEXT 

3280 RETURN 

3290 IF R=L0F( 1 )THEN3310 

3300 IF D<10THEN3160 

3310 PRINT9L ,">";: RETURN 

3320 IF L+32>4160R L+32=> 1 28+D*3 

20RC=1THEN SOUND1 20 , 3 : RETURN 

3330 L=L+32:D1=D1+1 

3340 PRINT«L ,">";: PRINT©L-32 , CHR 

$(143); 

3350 SOUND 130,1: RETURN 

3360 IF L-32<1280RC=1THEN SOUND 1 

20, 3: RETURN 

3370 L=L-32:D1=D1-1 

3380 PRINT©L ,">";: PRINT©L+ 32 , CHR 

$(143); 

3390 SOUND1 30, 1 : RETURN 

3400 IF R=LOF(1 )ORC=1THEN SOUND1 

20, 3: RETURN 

3410 D=0:L=128:D1=0:GOSUB3150 
3420 SOUND1 30,1: RETURN 
3430 IF R<=10ORC=1THEN SOUND 120 
, 3 : RETURN 

3440 R=(R-D)-10:IFSGN(R)=-1THENR 
= 0 

3450 D=0:L=128:D1=0:GOSUB3150 

3460 SOUND1 30, 1 : RETURN 

3470 IFR<=10ORC=1THENSOUND120,3: 

RETURN 

3480 R=0:D=0:D1=0:C=0:L=128:GOSU 
B3150 

3490 SOUND1 30, 1 : RETURN 

3500 IFR=LOF( 1 )ORC= 1 THENSOUND1 20 

, 3 : RETURN 

3510 Y=LOF(1 )*.1 :W=FIX(Y):F=ABS( 
Y)-ABS(W) 

3520 I FF=0THENR=LOF( 1 )-10:GOTO35 
40 

3530 R=INT(Y)*10 

3540 D1=0:D=0:L=128:C=0:GOSUB315 
0 

3550 SOUND1 30, 1 : RETURN 

3560 IFR<=10ORC=1THENSOUND120,3: 

RETURN 

3570 R=(R-1 )-10:D1=0:D=:0:L=128:G 
OSUB3150 

3580 SOUND1 30 , 1 : RETURN 

3590 IFR=LOF(1 )ORC= 1 THENSOUND1 20 

, 3 : RETURN 

3600 R=(R+1 )-10:D1=0:D=0:L=128:G 
OSUB3150 

3610 SOUND1 30, 1 : RETURN 

3620 GOSUB4170:IF LEFT$( PN$ , 3 )=" 
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i Continued From 33 

6360 GET* 1 , T 

6370 ON INSTR( " 1 23456 " , A$ )GOT063 
80 , 6390 , 6400 ,6410, 6420 , 6430 
6380 IF VAL( LEFT$( INFO$ , 3 ) )< VAL( 
C1$) OR VAL ( LEFT$ ( INFO$ , 3 ) ) > VAL( 
C2$) THEN 6490 ELSE 6480 
6390 IF MID$(INF0$,4, 16)<>C1$ TH 
EN 6490ELSE6480 

6400 IF MID$(INFO$,24, 1 )<>C1$THE 
N6490ELSE6480 

6410 IF MID$(INFO$,20,4)OC1$THE 
N6490ELSE6480 

6420 IF VAL(MID$(INFO$,25,2))OV 

AL(C1$)THEN6490ELSE6480 

6430 IF VAL(MID$(INFO$,39,2) )<>V 

AL(C1$)THEN6490ELSE6480 

6440 PRINT«425, "SEARCHING" : GOSUB 

7040 

6460 OPEN" D" , #2 , "REVIEW . FIL" , 54 
6460 FIELD #2,50 AS RINF0$,4 AS 
REC$ 

6470 RETURN 

6480 LSETRINFO$=INFO$ : LSETREC$=S 
TR$(T):J=J+1 : PUT* 2 , J 
6490 NEXT 

6500 IF LOF(2)=0 THEN CLOSE: GOTO 
6540 

6510 CLOSE 

6520 IF PEEK(481 )=2GOTO301 0ELSE5 
010 

6530 END 

6540 PRINT«420,"NO CARDS FOUND" 
6550 PRINT0452, "PRESS ANY KEY TO 
CONTINUE" 



6560 A$=INKEY$:IF A$=" "THEN$560l 
6570 GOTO6010 

6580 FORR= 1 TOLOF( 1 ) : GET* 1 , R : LSET 
RINFO$=INFO$:LSETREC$=STR$(R);J= 
J+1 :PUT*2, J: NEXT 
6590 GOTO6500 

7000 REM ***FILE SUBROUTINES*** 
7010 OPEN"D" , * 1 , "REVIEW . FI L" , 54 
7020 FIELD*1,3 AS CN$ , 1 6 AS PN$, 
4 AS CD$,1 AS IR$,2 AS YR$,2 AS 
QY$,5 AS MV$,5 AS PP$,2 AS YP$,1 
0 AS RK$,4 AS REC$ 
7030 RETURN 

7040 OPEN"D",*1 /'CARDS. FIL", 50 
7050 FIELD*1,50 AS INFO$ 
7060 RETURN 
8000 PCLEAR1 
8010 GOT030 
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Finally 



An answer for America's dying teens! 

For your free copy of this dynamic and 
powerful book, call us today at 
1-800-V1CTORY. 




Also; 

See and hear young people who have 
already found the answer at 
Freedom Village, USA in Lakemont, N.Y. 

Check your local Christian 
radio and television stations for the 
Victory Today program. 
For more information write 
Freedom Village, USA Lakemont, NY 14857 
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RAINBOW 



Reviewed 
Seot. April 
1986 1937 
pg 141 pg 140 

Now for the Co-Co 1, 2 or 3 with disc drive, 
printer, 32K. 

• User friendly— full menu driven selections. 

• Any number of teams, and over 200 bowlers. 

• Calculates and stores all team and bowlers 
stats. 

• Men, women, mixed, scratch or handicap; 
blinds and substitutes. 

• Start up any time in season. 

• Full edit capability. 

• Automatic backups and weekly, mid-season 
and end-season resets. 

• ABC/WIBC style printouts. 

• Includes 20-page instruction manual. 

• Upgrade for individual tally sheets. 
($9.95 separate; free when ordered 
with program.) 

Priced at $49.95 including Shipping, Handling & 
Sales Tax. To order, send check or M.O. 

Specify Version number (1.0 for men or women; 
1.1 for mixed) and number of disc drives. 

TOMELA*CO 

P.O. Box 2162 • Doylestown, Pa. 18901-2162 ♦ (215) 348-5822 
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Jim DeStefano 



(Note: This article refers to a series of 
Business Management programs published in 
CoCo Clipboard Magazine beginning with the 
Jan '89 issue. The program in this article 
will not run without having first setup 
files using previously published programs ; 
"CSFLMT " , the Customer File and "SLORNT" , 
the Sales Order File. 

The previous articles also addressed the 
objective of the series, to write 'spines' 
that can be modified for use in specific 
businesses , to show the power available 
from BASIC and detailed the most cost ef- 
fective CoCo (-3 only) business system 
configuration . 

It is not the policy of CCM to "bait" 
new subscribers into purchasing back is- 
sues, however it would be impossible to 
print this series of programs in one issue. 
Back issues of the magazine are available 
by calling 716/697-0126; see the Back Issue 
order page. 

Since we can not be responsible for the 
way the programs are used, CoCo Clipboard 
and/or the program contributors can not be 
responsible for the results of using the 
programs . ) 



The last article opened with, 'a CPA is 
going to design the accounting logic* and 
it closed with, 'if the accounts receivable 
module writes fast. . . ' ; neither happened. 

As to the accounting logic design, not 
to worry, another CPA said my planned ap- 
proach would be just fine, and considering 
a computer was doing the calculation, might 
even be better. (For those in the know, the 
plan duplicates what is called the Quick 
Cash calculation. ) 

In addition, Butch Mooney of Santa 
Clarita, CA has detailed his accounting 
needs based on his experience with his 
horse boarding/training business. It's not 
an easy road, but its coming together. 

Along the way we asked if anyone had a 
cure for Roxann Brown's trouble of losing 
data during SAVEs . She got RGB-DOS and the 
problem disappeared. 

This article begins the Accounts Re- 
ceivable module, "ACCREC". The program de- 
sign has some new wrinkles that will be of 
interest to all. The one thing that gives 
me a kick is the use of horizontal screen 
scrolling. The ability is designed right in 
the GIMMIE chip. That is, we can display 



more than 80 character across, but only 80 
characters at a time. 

If the 81st character is displayed, the 
1st character is scrolled off the display, 
but the 2nd through the 81st is displayed. 
Not as good as the 132 character rows of 
the commercial systems, but not bad for a 
$200 computer. 

The program also contains LOCATE state- 
ments with the first number greater then 
80; strange to see. Of course whatever 
prints after such a command will be what is 
seen when the scrolling is done. 

The CoCo cares for the scrolling some- 
what automatically. A part of RAM is re- 
served all the time to 'hold' that which is 
being displayed. The CPU jumps down to that 
area several times a second, gets whatever 
data is there and sends it to be displayed. 
As long as we display only 80 column rows, 
much of the reserved space is not used. 
There is enough space to 'hold' something 
like 25 rows of 132 characters each. (Many 
of the ML utility programmers put their 
code in the 'normally' unused space in this 
area. Of course such a utility won't work 
with a program that uses the space as it 
was intended; "RGB-DOS" works fine, "Basic 
Screen Editor" does not.) 

I have been told the early CoCo-3s have 
a bug in their GIMMIE chip which does not 
allow the horizontal scrolling to work. Let 
me know if you have trouble. The same act 
can be programmed, but the scrolling will 
not be as fast. When things are working 
right it takes only one poke to make the 
scroll occur; v-e-r-y fast. 

A couple things to note when the program 
is set to scroll. First, "breaking" out of 
the program will scramble the screen. To 
recover from this just type WIDTH80 and all 
will be righted. Second, if an Error Mes- 
sage caused the break its notation will be 
lost. In the following program, just type 
GOSUB 4050 and follow the screen message. 
The error message will be recovered and 
easily read. 

Have you ever read that even though the 
CoCo allows 15 files to be open at once, 
don't have more than two open at any one 
time because the data gets mixed? Nonsense! 
This program uses five files. I tried to 
keep only two open at a time. When I got 
done I had about a 1/2 K of code devoted to 
just opening and closing. Just to see what 

CCBMS continued on 36 
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CCBMS continued from 35 

would happen, I codea in the ability to 
have the five files open at the same time 
and ripped out the 1/2 K. No trouble and 
the whole thing works faster. 

Things are getting complex enough to 
detail the action. "CSFLMT" creates the 
"CUS FILE. DAT" file, which holds all the 
data on each customer; address, phone, etc. 

When the programs shows the "Loading 
Data" message, the program is getting all 
the customer names and associated record 
number, and putting them in sequential 
String$ variables. His is called an index. 
It uses a couple K of memory. However, when 
a search is done by customer name, the in- 
memory (fast) String$ are looked at. When 
the desired name is found, the record 
number is 'known' and the program goes di- 
rectly to the proper customer record to get 
the rest of the data. 

Roxann has so many customers , more than 
150, the program ran out of space for the 
index. She just ripped out the Hints and 
Revision sections, increased the DIM 
quantities in line 9030 and continued on. 

"SLORNT" creates "SAL HEAD. DAT" and "SAL 
BODY. DAT" . These files hold the data for 
each Sales Order. "SAL HEAD" has a pointer 



to the buyer, customer; the Sales Order 
number, dates, total dollars, etc. "SAL 
BODY" holds the details of the item(s) or- 
dered; quantity, description, value each, 
etc . 

After a Sales Order has been entered, 
the choice is given to either print a Re- 
ceipt, allow an Invoice to be recorded and 
printed later or Neither. 

The neat trick about the Sales Order 
module is its ability to allow an order to 
be changed or added to if it is an 'in- 
voice* order. The file allows this by using 
pointers from one record to the next. Keep 
in mind, an order can have any number of 
lines; each line is a record in the file. 
After a given order is entered, one or more 
other orders could be entered right after 
it. 

Then if the original order has a line 
added to it, the program could shuffle the 
file to get the added line inserted in the 
proper order. However, that would be slow. 
Rather, the end of each line holds the 
record number of the next line of the given 
order. Of course this design allows the 
lines of a given sales order to be scat- 
tered through out the file, but each 
'knows' to which sales order it belongs. 



CCBMS continued on 37 



VIP Software for the CoCo 3 

VIP Writer III includes VIP Speller $79.95 

VIP Calc Hi. $69.95 

VIP Database III $69.95 

VIP Library /WDCE $1 79.95 

Upgrade Writer to Writer III $49.95 

Upgrade Calc to Calc III $29.95 

Upgrade Database to Database III.. ..$39.95 
Upgrade Library to Library /WDCE. ...$99. 95 

VIP Software for ALL CoCos 

VIP Writer includes VIP Speller* $69.95 

VIP Calc $59.95 

VIP Database $49.95 

VIP Speller $34.95 

VIP Disk-Zap $29.95 

VIP Integrated Library $149.95 

Upgrade any VIP pgm to VIP Library $99.95 

Upgrading? Send disk only + amount + $3 S/H 
See our July ads for more information 

VISA 1-800-322-9873 M/C 

SD Enterprises info line (805) 566-1317 
P. O. Box 621 Carpinteria Ca 93013 

VIP Library orders add $4 S/H USA, $5 Canada & $1 0 Foreign 

Other orders add $3 S/H in USA, $4 Canada, $6 Foreign. COD orders add an 
additional $2.75. Checks allow 3 weeks for delivery. Calif, res. add 6% tax. 
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THE RGB HARD DISK 



A warranty can replace your Hard Disk Drive, 
but not the valuable data it contains! Think 
about this BEFORE you buy a used or rebuilt 
hard drive. 

RGB Computer Systems uses only BRAND 
NEW Hard Disk Drives. Controllers and Com- 
ponents, all with the Full Manufacturers 
Warranty. 

Due to the unique design of our components 
and software, RGB also has the fastest and 
most reliable data transfer in the industry! 
The RGB Hard Disk System fully supports both 
BASIC and OS-9, and provides the ability to 
boot up OS-9 completely from the Hard Disk 
without the need for special EPROMS or the 
loss of Disk Basic. 

If you need a Fast, Reliable Hard Disk System 
and don't mind spending a few dollars more for 
Quality, please give us a call today! 

COMPUTER ^ 
SYSTEMS 




294 STILLWELL AVE 
KENMORE, NY 14217 



(716) 876-7538 
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CERTIFICATION 
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CCBMS continued from 36 

The ability to change a sales order is 
allowed until it's first invoice is 
written. 

The program in this article, "ACCREC" , 
Accounts Receivable, allows the creation of 
invoices. It uses the three files noted 
above and creates two more; "IVC NUMB . DAT" 
and "IVC REC.DAT". The record number of 
1 NUMB 1 is the invoice number. It holds the 
sales order number that belongs to the 
invoice number, the pointer to the invoice 
data in ' REC ' and a flag that tells if the 
the invoice has been paid in full, or not. 

"IVC REC" holds quantity shipped, date, 
back order quantity, shipping cost and ac- 
cumulated quantity shipped. Getting it to 
show the accumulated quantity each time 
something was shipped, but not allowing the 
total to be added to if the operator wanted 
to change the quantity evaded me for a 
while. The solution turned out to be 
simple. Just put the total in a temporary 
variable until the invoice is committed and 
then put the data in it into the 1 real 1 
variable . 

Another touch I (and I expect Rush 
Caley) will like, is when a second, or 
greater, invoice is written against a given 
order, the values of the last invoice are 
displayed. When the new data is entered, it 
just over-writes the old. When the operator 
signals all is correct, any remaining old 
data is wiped off the display leaving only 
the new invoice data to be verified. 

Incidentally, the Sales Order module 
also creates the "SAL HIST.mmy". The 'mmy' 
represents a two digit month and one digit 
year code. Such as; September, month number 
09, and 1989, year number 9. This code can 
give a monthly identification (separation) 
over a ten year period. 

The file contains only the sales order 
number of the orders that were generated in 
any given month. Presently the module 
doesn't exploit that information, but it 
would be a simple matter to write a routine 
that would detail the dollar value pur- 
chased by each customer, monthly and/or 
yearly, or even the previous month(s) 
and/or year(s). The same break-down could 
be calculated for items sold, etc; any of 
the data that relates to the sales order. 

Tracing what happens when the operator 
inputs an invoice, they are asked for the 
Sales Order number, if it is not known, 
they are asked for the Customer number, if 
it too is not known, they are asked for the 
Customer Name (worst case for the program). 
The program searches the customer names in 
the index for letter combination that match 
the entered letters, and displays all 
matches, along with their number. 

The operator is requested to input the 
number (much the same as if the operator 
had entered the number when first asked). 
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The program uses the number to get all the 
customer data from appropriate "CUS FILE" 
record, and displays it. 

Then starting at the end, the program 
searches the "SAL HEAD" file backward for a 
record that has the same customer number. 
When a match is found the given sales order 
heading is displayed. It contains the first 
"SAL BODY" record number. The program gets 
that record and the next record it indi- 
cates, if any, and displays all found re- 
cords . 

The operator is then asked if the dis- 
played sales order is the one wanted. If 
not, the program continues searching for a 
matching customer number in another "SAL 
HEAD" record. Either a proper match is 
found or a "End of File" message is dis- 
played . 

When the proper sales order is found, 
the display is scrolled to reveal the in- 
voice input screen. 

The article's program is the 'engine* 
for the A/R module. The next issue will 
allow the invoice to be printed and paid; 
all with separate accounts files to 'hold' 
the data. 

In closing, "SYSMNU" needs LN (line) 
10 's POKE changed to 65497,0. If there is 
no selection number for the Accounts Re- 
ceivable module in the menu, one should be 
put in to select "ACCREC". 

The following changes to "SLORNT" need 
to be made to cause an order to be labeled 
"Invoice", etc.; prohibit changes to an 
order once it has been invoiced and several 
other action enhancements. 

First, in the last issue I said LN 100 

needed the following; insert [,100] in 

front of [:GOTO100]. It should have been 

[,110]. Sorry if that caused any confusion. 

In LN 280; after [ LOCATE0 , 5 : PRINT ] insert 
[" "], change the [1] in [L0CATE1,6] to 
[0], after [PRINT] insert [" "]. 

LN 290 should be changed to read [LOCATE 
57,2:PRINT"Sales Order* : "SO$ ; :LOCATE59,3 
: PRINT"Order Date : " ; DT$ : LOCATE62 , 4 : PRINT 
"Cus PO#: "CP$:LOCATE61 ,5:PRINT"Due Date: 
" ; DD$ : LOCATE66 , 6 : PRINT "TA# : " ; TA$ : RETURN] 

Add LN; 450 WIDTH40 : TIMER=0 : LOCATE0 , 8 : PRINT 
" Sales Order# " ; : PRINTLEFT$ ( SO$ + " " , 8 ) ; : 
PRINT" has already been" ;: PRINT : PRINT" 
Charged; it can NOT be altered."; 

Add LN; 451 IF TIMER>200 THEN9040 ELSE451 

(Note the following changes require 
previously generated "SAL HEAD. DAT", SAL 
BODY. DAT" and "SAL HIST.mmy" files be 
KILLed from your disk. ) 

CCBMS continued on 38 
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In LN 1110; after [CPS], insert [ , 8AS DD$ J . 

In LN 1120; after [CP$(1)J insert [ : LSET 
DD$ = DD$(1).] . 

In LN 3200; After [SO$:] insert a space [ 
], replace the 1st [SO$(l)] with [I$], 
after [LOF(2)+l):J insert [S0$(1)= RIGHTS 
(I$,LEN(I$)-1):]. 

In LN 3210; after [PRINT" ] insert [Order ] 

Change or add LN 3240 to read; 3240 
LOCATE61 , 5 : PRINT "Due Date: J 

Add LN; 3245 LOCATE66 , 6 : PRINT M TA# : 
-":TA$(1)="-" 

In LN 3270; after [Number.] insert [ 
TS$; ] . 

Add LN; 3275 LOCATE33 , 22 : PRINT"Requested 
Ship Date, (Only mm/dd needed). ";:F$= 
DT$( 1 ) :X1=71 :X2=71 : Yl=5 :L0CATEX1 , Yl :PRINTF$ 
; :LN=0:LN( 1 )=8 : XI =X1+LEN( DT$ ( 1 ) ) :GOSUB100:L 
N=LEN(F$ ) : IF LN<5 THEN3275 ELSE IF LN=5 
THEN DD$(l)=F$+ M /89" ELSE DD$(1)=F$ 

Add LN; 3276 F$=RIGHT$ ( F$ , 3 ) : IF LEFT$(F$, 
!)<>"/" THEN DD$="" :GOT03275 ELSE LOCATE 
71,5: PRINTDD$ ( 1 ) : DD$ =DD$ ( 1 ) 

In line 3310; after [TS$] insert [TS$]. 
(This is not a misprint) 

In line 3350; after [","] insert [+"-"]. 

Add LN; 3390 X$=TG$ ( 2 )+TG$ ( 3 ) : LOCATE 
8,22:PRINTTS$" Percent Tax 

?"TX$(1)" "TS$TS$; :F$=TX$(1): X1=41:X2=41: 
Yl = 2 2 : LN= 0 : LN ( 1 ) = 2 : XI =X1 + LEN ( TX$ ( 1 ) ) : GOSUB 1 
00 : TX$ ( 1 ) =F$ : F= ( VAL ( F$ ) * . 01 ) *CT : PRINT"%" : LO 
CATE67 , 22 : PRINT" TAX " ; : PRINTUSING 
"####. ##";F; 

Add LN; 3406 SOUND225 , 1 : LOCATE25 , 22 : PRINT" - 
RECEIPT Print/ INVOICE Post 7 NEITHER ? 
, (R/I/N) "; :X1=68:GOSUB200:IF I$="R" OR 
I$="r" THEN TA$(l)="Receipt ":GOTO6200 

Add LN; 3407 IF I$="I" OR I$="i" THEN 
TA$(l)="Invoice-":ELSE IF I$="N" OR I$="n" 
THEN TA$(l)="Neither " ELSE3406 

Add LN; 3425 IF INSTR( TA$ ( 1 ),"-") =0 THEN 
CLOSE #1 :EX$=" . "+LEFTS ( DT$ , 2 ) +RIGHT$ 
( DT$ , 1 ) : OPEN" D" , #1 , "SAL HIST" +EX$ , 8 : FIELD 
#1,8AS SO$:LSET SO$=SO$ ( 1 ) : PUT #l,LOF(l)+l 

In LN 5040; in the beginning insert 
[SOUND225,l:IF INSTR ( TA$ ,"-") =0 THEN450 
ELSE ], after [CP$] insert [ : DD$ ( 1 ) =DD$ ] , 
after [(C/A/E) ,f ] insert [TS$], after 
[Yl=22:] delete [ SOUND225 , 1 : ] . 



In LN 5041; insert in the beginning 
[FG(2)=1:IF I$="A" OR I$="a" THEN504 ELSE 
]• 

Add LN; 504 2 SOUND25 , 2 : GOTO5041 

In LN 5060; insert in the beginning 
[CLOSE2:GOSUB1100: ] 

Change LN 6030; to ['***]. 

Add or change the following lines: 

6200 CLS:LOCATEll , 9 : PRINT"PRINTER MUST BE 
ON":LOCATE14,12:PRINT"Press Any Key": EXEC 
44539 : POKE65496, 0 : P=-2 : CLS : PRINT#P, "C.C.B.M 
. S . " ; STRINGS (16,32); "BROWN ' S SECRETARIAL 
SERVICES" ; STRINGS (17,32);"- Letters" 

6201 PRINT#P,STRING$(33,32)"27 Maple 
Avenue" ; STRINGS (22,32);"- Resumes" 

6210 PRINT#P, STRINGS (28 ,32) ; "Frankl inville , 
NY 14737" ; STRINGS ( 17,32) ; "- Reports": 
PRINTfP, STRINGS ( 3 3 , 32 ) ; " ( 71 6 ) 676-9965" ; 
STRINGS (21,32);"- Research" : PRINT#P: 
PRINT#P:PRINT#P 

In LN 6220, after [TA$] insert [(1)] 

In LN 7030; move everything after 
[choice,"] to a new line 7035, after 
[GOSUB2040:] insert [ LOCATE35 , 0 : ] and 
delete [PRINT : PRINT : PRINT" ";:], after 

[PRINT"] insert [- HINTS 
-"; :LOCATE5,2:PRINT"] , 

(Add line; [7035 PRINTTSS ; "noted by (Y/N) 
or (N/Y). The first letter, N or Y, is 
the"}) 

In line 7998; after [GOSUB2040:] insert 
[LOCATE35,0:ATTR0,0,U: ] delete [PRINT:] and 
after [PRINT] insert ["- HINTS 
-" ; : LOCATE0 , 1 : ATTR0 , 0 : ] . 

In line 9040; after [CP$ ( 1 ) =" " ] insert 
[ :DD$(1)=""] . 

Add the following lines: 

12032 ' operation. Lines 7081 
thru 7083. 

12033 '*** 1.0.3, Allow negative dollars to 
be entered in the sales order, a 

credit. Line 100, add [,100] just before 
[:GOTO100]. Line 3350 
add [+"-"] just after ["."]. 
Line 3, change the 2 to 3. 

12034 '*** 1.1.3, Add Sales Order Printout. 
Change line 3. Add lines 3407 and 

6200 thru 6280. 

12035 '*** 1.1.4, Add repeat ability to 

CCBMS continued on 39 
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From The Desk continued from 5 

Page Maker running under 0S9, Tandy's Lotus 
1-2-3 for DeskMate requires a minimum of 
512K. Where have I seen 512k? Hmmmm. Now 
with Tony and Kevin getting a full meg to 
operate on a CoCo an application like Lotus 
just might run under a "real" operating 
system ! 

As always, it's "woulda - shoulda - 
coulda" if no body gets off their duffs. 



CoCo 
Clipboard 
Magazine 



Great OS— 3 So ft; war <&■ 

VED, OS-9 Text Editor $24.95 

Simply stated: Ved is the best text editor 
available for OS-9 Level 2 and the CoCo3. 
See the review in Mar/Apr Clipboard. Works 
with 128K and 512K. 

Upgrades to version 1.7 are $10.00 with proof 
of purchase. 

VPT, OS-9 Text Formatter $24.95 

An unbelievably powerful formatter. Features 
include complete proportional font support, 
multiple columns, footnoting, indexing, table 
of contents. And much more. AVAILABLE SEPT 
'89. (512K memory recommended) 

DML9, OS-9 Mailing List $24.95 

Diskbased mailing list program for small 
business, clubs or just friends. (Requires 
512K CoCo3). 

Magazine Index System 9 $19.95 

Now you find those references fast. Comes 
with extensive CoCo magazine data files. File 
compatible with our RS-DOS version. (Requires 
512K CoCo3) 



Sorry, no credit cards — enclose check or 
money order plus $2.00 shipping and handling. 
Complete catalogue available — send $1.00. 

Bob van der Poel Software 

P0 Box 57 P0 Box 355 

Wynndel, B.C. or Porthill, ID 

Canada V0B 2N0 USA 83853 



backspace key. Lines 80 and 120 
end with a [GOTO] 

statement. Just in front of both 
statements, insert [FOR 

X=l TO 150:NEXT:POKE334,255: ] . 

12036 '*** 1.1.5, Add M SAL HIST.mmy" and 
interface to "ACCREC" . 

Change LN 3 to the newest Revision Number, 
[1.1.5] 



If you have any questions, comments or 
suggestions please write me direct, RD #1, 
Box375. 

This program is available on ClipDisk. 
A single issue is just $9.95, a full year 
is only S49.95. Phone orders are 
accepted at (716) 679-0126 - please 
have your credit card ready. You may 
also order by mail by enclosing your 
check or money order to CoCo Clipboard Magazine. 
Our address is 3742 U.S. 20, Box 3, Fredonia, NY 
14063 U.S.A. Slightly higher prices for overseas orders. 




A/\/\/\/\AA/\A/\/\/\/\ 



~ CCBMS - 
"ACCREC.BAS" 
Rev 0.0.1 



5 ' \ (C) Copyright 1989 

6 * / CHATHAM HOUSE SOFTWARE 

7 ' \ JIM DESTAFENO 

8 9 / WYOMING, DE 19934 

9 * XAAAAAAAAAAAA/ 

10 POKE65497,0:GOT09030 
20 '*** 

30 '*** Sub-Routine Section *** 
40 '*** 

50 LOCATEX1 ,Y1 : ATTRO , 0 , B : PRINT" " 
; :I$=INKEY$:IF 1$="" THEN50 ELSE 
ATTRO, 0:ON INSTR(TG$( 1 ) , 1$ ) GOT 
050 , 50 , 80 , 50 , 50 , 50 , 70 , 90 , 50 , 50 
60 LN=LEN( F$) : IF LN=>LN(1) THEN 
SOUND50 , 1 : GOTO50 ELSE F$=F$+I$:L 
OCATEX2,Y1 :PRINTF$; :X1=X1+1 :GOTO 
50 

70 SOUND225, 1 : RETURN 
80 IF LEN(F$)=0 THEN SOUND50,1:G 
OTO50 ELSE F$=LEFT$( F$ , LEN( F$ )- 1 
) : LOCATEX2 , Y1 : PRINTF$ ; STRING$( LN 
(1 )-LEN(F$),46); :X1=X1-1 :FOR X=1 

TO 150: NEXT :POKE343, 255 :GOTO50 
90 IF LEN(F$)-0 THEN SOUND50,1:G 
OTO50 ELSE F$= " " : X1 =X2 : LOCATEX1 , 
Y1 :PRINTSTRING$(LN(1 ),46); : SOUND 
224,1 :GOTO50 

100 LOCATEX1 ,Y1 :ATTR0,0,B: PRINT" 
"; :I$=INKEY$:IF 1$="" THEN 1 00 EL 
SE ATTRO, 0:ON INSTR(X$,I$) GOT01 
10,110,110,110,110,110,110,110,1 
10, 1 10, 120, 130,70,1 10, 110:GOT010 
0 

110 LN=LEN( F$ ) : IF LN=>LN(1) THEN 
SOUND50, 1 :GOTO100 ELSE F$=F$+I$ 
:LOCATEX2,Y1 :PRINTF$; :X1=X1+1 :GO 
TO100 

120 IF LEN(F$)=0 THEN SOUND50,1: 
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CCBMS continued from 39 

GOT0100 ELSE F$=LEFT$(F$,LEN(F$) 
-1 ):L0CATEX2,Y1 : PRINTF$ ; STRING$ ( 
LN(1 )-LEN(F$),46); :X1=X1-1 : FOR X 
=1 TO 1 50 : NEXT : POKE343 , 255 : QOT01 
00 

130 IF LEN(F$)=0 THEN SOUND50,1: 
GOTO100 ELSE F$ = " " :X1 = X2 : LOCATE 
X1 ,Y1 :PRINTSTRING$(LN(1 ),46); :SO 
UND224, 1 :GOTO100 

200 LOCATEX1 ,Y1 :ATTR0, 0 , B: PRINT" 
"; :I$=INKEY$:IF I$=" " THEN 200 E 
LSE ATTR0,0: RETURN 
220 WIDTH40 : LOCATE 1 3 , 9 : PRINT"- L 
OADING DATA -": GOSUB1 030 : RETURN 
230 WIDTH40:LOCATE2,9:PRINT"- DI 
D NOT FIND, (MORE); OR THERE IS 
NO": PRINT" CUSTOMER WITH:":SO 
UND50 , 2 : L0CATE4 ,14: RETURN 
240 GOSUB1040:FOR X=1 TO LOF(1): 
POKE65496,0:GET * 1 , X : POKE65497 , 0 
: CS$ ( X+1 )=CS$ : CN$(X+ ) =CN$ : NEXTX : 
RETURN 

270 GOSUB1 040 : GOSUB1 110: POKE6549 
6,0:GET #2,F:GET # 1 , VAL( CN$ ) : POK 
E65497 , 0 : SO$ ( 0 )=SO$ : RETURN 

271 Y=Y+1 : LOCATEO, 0:PRINTY" / "; 
:IF Y>LOF(2) THEN272 ELSE POKE65 
496,0:GET #2 , Y : POKE65497 , 0 : PRINT 
F$"-"CN$;:IF VAL( F$ )=VAL(CN$ ) TH 
EN F1$=F$:CN$(2)=CN$:F=Y:RETURN 
ELSE27 1 ' *** FOR/NEXT gets lost 

272 GOSUB390:PRINT"Customer No M 
F$; :GOSUB450:GOTO9040 

275 Y3=LOF(2)+1 :LOCATE33,11 :PRIN 
T"-SEARCHING : GOSUB1 110 

276 Y3=Y3-1:IF Y3<1 THEN 272 ELS 
E GOSUB1110:POKE65496,0:GET #2,Y 
3:POKE65497,0:IF VAL( F$ )=VAL(CN$ 
) THEN F1$=F$:FB$(0)=FB$:CN$(2)= 
CN$:F=Y3: RETURN ELSE276 

277 STOP 

280 LOCATE 1 , 2 : PRINTCS$ ; : LOCATEO , 
3: PRINT" "FL$ : LOCATE1 , 4 : PRINTTR$ 
: LOCATEO, 5: PRINT" "CT$", "TT$" 
"ZP$: LOCATEO, 6: PRINT" "CN$" >> 
> "CM$" <<<": RETURN 
290 LOCATE57,2:PRINT"Sales Order 
#: "SO$; :SO$(0)=S0$:LOCATE59, 3:P 
RINT "Order Date: " ; DT$ : LOCATE62 , 
4:PRINT"Cus PO# : "CP$ : LOCATES 1 , 5 
:PRINT"Due Date: " ; DD$ : LOCATE66 , 
6:PRINT"TA*: " ; TA$ : RETURN 

300 LOCATEO, 7 :PRINTSTRING$( 127,4 
5):LOCATE0,8:PRINT"LN "PI$" ITE 
M # "PI$" DESCRIPTION 

"PI$" QTY-UNIT "Pr$" 
$$/UNIT "PI$" EXTEN $$ "PI$PI$" 
Sh'd "PI$" Date "PI$" BO M 
PI$" Shp $ "PI$" C S'd M PI$PI$" 
LN"; 

301 LOCATEO, 9 :PRINTSTRING$( 127,4 
5):FOR X=10 TO 21 : LOCATEO, X : PRIN 
T : LOCATE3 , X : PRINTPI$TS$PI$TS$TS$ 
TS$" "PI$TS$" "PI$ M . "PI 
$TS$PI$PI$" "PI$TS$PI$" 

"PI$" "PI$" "PI$PI 

$: NEXT : PRINT : C=1 :Y1 =10: Y2=10:RET 
URN 

305 F$=SO$:SO$( 1 )=SO$:TX=VAL(TX$ 
):IF LOF(4)=0 THEN SO$= " " : GOTO30 
6 ELSE GOSUB271 :C=VAL(ID$) :Z1=C: 
POKE65496 , 0 : GET #5 , C : POKE65497 , 0 

306 LOCATE83 , C+9 : PRINTUSING"#### 
" ; VAL( SQ$ ) ; : LOCATE90 , C+9 : PRINTSE 
$ ; : LOCATE 1 07 , C+9 : PRINTUSING"### . 
##" ;VAL(SX$) ; : LOCATE1 1 7 , C+9 : PRIN 



TUSING"#### " ; VAL( TH$ ) ; : LOCATE 1 24 
,C+9:PRINTUSING"*##" ;C; :BO=VAL(Q 
T$(C))-VAL(TH$(C)):LOCATE101 ,C+9 
308 IF BO<1 THEN BO$=" - ":PRIN 
TUSING"* %" ; BO$ ; : RETURN ELSE PR 
INTUSING"####" ;BO; : RETURN 
315 LOCATE67,X:PRINT"TAX ";:PRIN 
TUSING"#f ### .##";(. 0 1 *VAL( TX$ ) ) * 
VAL(SU$); : PRINT" "PI$PI$ : LOCATE6 
5 , X+1 : PR I NT "TOTAL " ; : PRINTUSING" 
##";VAL(GT$); :PRINT" "PI$P 

i$; 

320 F=VAL(FB$):C=1 : GOSUB1 2 1 0 : FOR 
X=10 TO 22:POKE65496,0:GET #3,F 
: POKE65497 , 0 : RN$ ( C ) =RN$ : LOCATEO , 
X : PRINTLE$ ; : LE$(C )=LE$ : LOCATE5 , X 
:PRINTIN$; : IN$(C)=IN$: LOCATE 16 ,X 
: PRINTDS$ ; : DS$ ( C )=DS$ : LOCATE49 , X 
: PRINTUSING"####" ; VAL(QT$ ) ; :QT$( 
C)=QT$ 

330 LOCATE54,X:PRINTUT$; :UT$(C)= 
UT$ : LOCATE60 , X: PRINTUSING"##### . 
## M ; VAL ( DU$ ) ; : DU$ ( C ) =DU$ : LOCATE 7 
1 , X : PRINTUSING"##*## . ## " ; VAL ( ED$ 
); :ED$(C)=ED$:F=VAL(NB$):NB$(C)= 
NB$:C=C+1 :F=VAL(NB$):IF F>0 THEN 
NEXTX : C= 1 : RETURN ELSE CL=F:C=i: 
RETURN 

350 CS=0:SC=0:FOR X=1 TO 12:IF S 
Q$(X)="" THEN NEXT ELSE CS=CS+VA 
L ( SQ$ ( X ) ) *VAL ( DU$ ( X ) ) : SC=SC+VAL ( 
SX$(X)):NEXT 

360 LOCATE97, 3: PRINT" Value Items 
Shipped: "; : PRINTUSING"$*#### .# 
#" ; CS ; : LOCATE 1 13,4: PRINT"Tax : " 
; :TX=CS*(VAL(TX$)/100) :PRINTUSIN 
G"#####.##";TX; : LOCATE1 01 , 5 : PRIN 
T"Shipping Charge: ";:ATTR0,0,U 
:PRINTUSING"#####.##" ;SC; : ATTRO , 
0 

370 LOCATE97,6:PRINT"— > PLEASE 
PAY --> " ; :PRINTUSING"$#####.# 
#";CS+TX+SC; : RETURN 
390 LOCATEO , 8 : PRINT : LOCATE32 , 8 : P 
RINT"- END OF FILE -" ; : SOUND50 , 2 
:FOR X=1 TO 2000 : NEXT : GOTO9040 

450 TIMER=0 

451 IF TIMER>200 THEN RETURN ELS 
E451 

490 LOCATEO , 0 : ATTRO , 0 , U : PRINT " Ac 
cts Rec ' Die" ; : PRINTSTRING$( 113,3 
2 ) ; : LOCATE74 , 0 : PRINT"ACCREC" ; : RE 
TURN 

500 SW=1 : PRINT: LOCATEO, 3 :PRINT"S 

ales Order No ";:LOCATE2 

5,3:PRINT"Cus No " : LOCATE4 

0,3:PRINT"Cus Name "STRING$( 30 , 4 
6) 

510 PRINTSTRING$(80,45) 

520 SOUND224, 1 : PRINT" EDITOR COMM 

ANDS: BACKSPACE - L Arrow, CLE 

AR - SF/L Arrow, END INPUT - <E 

NTER> " ; ; : ATTRO , 0 , U : PRINT : PRINTST 

RING$(80,32) ; : ATTRO, 0 

530 X$=TG$ ( 2 )+TG$ ( 3 ) : LOCATE 14,22 

: PRINT"- INPUT: Sales Order NUMB 

ER or <ENTER> for Customer NUMBE 

R Choice. "; :X1=15:X2=15:Y1=3: LN= 

0:LN(1 )=8 

540 GOSUB100:IF F$>" " THEN F=VAL 
( F$ ) : GOSUB1 250 : GOTO270 : RETURN 
550 SW=2 : X$=TG$( 2 )+TG$ ( 3 ) : LOCATE 
23,22:PRINT"Customer NUMBER or < 
ENTER> for Customer NAME.":X1=32 
:X2=32:Y1=3:LN=0:LN( 1 )=6:GOSUB10 
0:IF F$>"" THEN F$=RIGHT$( "00000 
" + F$ , 6 ) : GOSUB27 5 : RETURN 
560 SW=3:LOCATE31 , 1 1 : PRINT"- LOA 
DING DATA -": GOSUB240 : LOCATEO ,1 1 



: PRINT : LOCATE33 , 22 : PRINT " AME . " : X 
1 =49 : X2-49 : Y1 =3 : LN=0 : LN ( 1 )=30 : SO 
UND225, 1 :GOSUB50:IF F$>" " THEN C 
S$=F$ ELSE9040 

570 LOCATE23,22:PRINT"Number of 
Customer" ; :C=0:A1=0:B1=9:X1=42:F 
OR X=1 TO LOF(1):IF C=12 THEN A1 
=40:B1=9 

580 IF C=24 THEN PRINT" or 'M\ 
More"; :C=0:FL=1 : X1 =53 : A1 =0 : B1 =9 : 
LN=0:LN(1 )=6:X1=66:Y1=22:X2=66:F 
$="" :GOSUB50:IF F$="M" THEN590 E 
LSE F=VAL(F$):IF F=0 THEN640 ELS 
E 620 

590 IF INSTR(CS$(X+1 ) ,CS$)>0 THE 
N LOCATEA1 ,B1 : Y=X : PRINTUSING"### 
##" ;X; : PRINT". "CS$(X+1 ) : B1 =B1+1 
:C=C+1 

600 N€XTX:IF C=0 THEN640 ELSE IF 
FL=0 AND C=1 THEN X=Y : F=X : GOT06 

30 

610 LOCATEX1 ,22: PRINT" ":F$="": LN 
=0:LN( 1 )=6:Y1=22:X2=X1 :GOSUB50:F 
=VAL(F$):IF F=0 THEN9040 
619 GOSUB1250 

630 GOSUB1040:POKE65496,0:GET #1 

, F : POKE65497 , 0 : LOCATEO , 6 : PRINT : I 

F F$>"" THEN F$=CN$:GOTO650 

640 GOSUB230: PRINT" "CS$ ; : GOSt>B4 

50:GOTO9040 

650 GOSUB280:GOTO275 

999 EXEC44539:STOP 

1000 '*** 

10 10 7 *** Disk I/O *** 
1020 '*** 

1030 OPE^'D" ,#1,"CUS FILE",177:R 
ETURN 

1040 FIELD #1,6AS CN$ , 30AS CS$,2 

5AS FL$,25AS TR$,15AS CT$ , 2AS TT 

$,10AS ZP$,45AS CM$,13AS PH$,3AS 

TY$,3AS CL$: RETURN 

1100 OPEN"D" ,#2, "SAL HEAD" , 99 : RE 

TURN 

1110 FIELD #2,6AS CN$,30AS CS$,8 
AS SO$,8AS DT$,8AS CP$,8AS DD$ , 8 
AS TA$,8AS SU$,2AS TX$,8AS GT$,5 
AS FB$: RETURN 

1130 POKE65496,0:PUT #2,VAL(SO$) 

:POKE65497,0: RETURN 

1200 OPEN"D",#3,"SAL BODY",70:RE 

TURN 

1210 FIELD #3,3AS RN$ , 2AS LE$,8A 
S IN$,30AS DS$,4AS QT$,2AS UT$,8 
AS DU$,8AS ED$,5AS NB$: RETURN 
1250 IF F>LOF(2) OR F<1 THEN SOU 
ND50,2: LOCATE14 , 22 : PRINT"- NUMBE 
R is larger or smaller then exis 
ting numbers. "TS$ ; : LOCATE67 , 2 
2:SOUND50,2:GOSUB450:GOTO 9040 E 
LSE RETURN 

1300 OPEN"D" ,#4, "IVC NUMB",17:RE 
TURN 

1310 FIELD #4, 1 AS IS$,8AS SO$ , 8 

AS ID$: RETURN 
1320 LSET IS$=IS$( 1 ) : LSET SO$=SO 
$(1):LSET ID$=ID$( 1 ) :RETURN 
1330 POKE65496,0:PUT *4,VAL(IV$( 
0 ) ) : POKE65497 , 0 : RETURN 
1400 OPEN"D" ,#5, "IVC REC" ,32 
1410 FIELD #5 , 8AS IV$,4AS SQ$,8A 
S SE$,8AS SX$,4AS TH$: RETURN 
1420 LSET IV$=IV$(1 ) : LSET SQ$=SQ 
$(1):LSET SE$=SE$(1 ) : LSET SX$=SX 
$ ( 1 ) : LSETTH$=TH$ ( 1 ) : RETURN 
1430 POKE65496,0:PUT #5,VAL(ID$( 
1 ) )+X-1 :POKE65497,0: RETURN 
1999 EXEC44539:STOP 
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CCBMS continued from 40 
2000 '*** 

2010 '*** Inquire Identify *** 
2020 '*** 

2030 GOSUB101 1 1 : GOSUB1 030 : QOSUB1 
1 00 : GOSUB1 200 : GOSUB1 300 : GOSUB1 40 
0 : GOSUB490 : LOCATE3 1,0: ATTRO , 0 , U : 
PRINT" - SHIP STATUS - ";:LOCATE 
0,1 : PRINT" : ATTRO , 0 : GOSUB500 ' ** 
* don't combine w/line below 

2031 GOSUB1040:GOSUB1 1 10:POKE654 
96,0:GET #2,F:GET # 1 , VAL(CN$ ) : PO 
KE65497 ,0 

2032 GOSUB280:GOSUB290:GOSUB300: 
GOSUB315:GOSUB1310:Y=LOF(4):IF Y 
=0 THEN2033 ELSE FOR X=Y TO 1 ST 
EP-1:GET #4,X:IF SO$=SO$(0) THEN 

IV=X:GOT02035 ELSE NEXT 

2033 LOCATE104,2:PRINT"Last Invo 
ice#: - NONE - " ; : GOSUB4035 : GOT09 
040 

2035 Z=VAL(ID$):GOSUB1410:FOR C= 
1 TO 12:IF LE$(C)>"" THEN POKE65 
496,0:GET #5 , Z : POKE65497 , 0 : SQ$(C 
)=SQ$:SX$(C)=SX$:TH$(C)=TH$:IF V 
AL(IV$)=IV THEN GOSUB306 : Z=Z+ 1 : I 
F Z<=LOF(5) THEN NEXT'*** don't 
combi ne 

2040 LOCATE104,2:PRINT"Last Invo 
ice#: "IV$; : GOSUB350 : GOSUB4035 : F 
OR X=0 TO 12:IV$="":SQ$(X)="":SE 
$(X)="" :SX$(X)="":TH$(1 )=" " : NEXT 
:CS=0:SC=0:GOTO9040 

2999 EXEC44539:STOP 

3000 '*** 

3010 '*** Add/Create new invoice 

*** 
3020 '*** 

3030 GOSUB10111:GOSUB1030:GOSUB1 
1 00 : GOSUB 1 200 : GOSUB 1 300 : GOSUB 1 40 
0:GOSUB490 

3035 LOCATE31 ,0:ATTRO,0,U:PRINT" 
- INVOICE ENTRY -" ; : LOCATEO , 1 : P 

RINT" " ; : ATTRO , 0 : LOCATEO , 5 : PRINT" 
";:FOR X=1 TO 26 :PRINTSD$ ; : NEXT 

X: PRINT :G0SUB500 

3040 '*** GOSUB1040:GOSUB1110:PO 
KE65496,0:GET #2,F:GET #1,VAL(CN 
$):POKE65497,0 

3050 IF TA$<> "Invoice-" AND TA$< 
> u Invoice " THEN LOCATE1 6 , 22 : ATT 
R0,0,B:PRINT"This Sales Order Is 
NOT Setup To Be Invoi ced . " ; STRI 
NG$ ( 1 8 , 32 ) ; : LOCATE62 , 22 : GOSUB450 
: ATTRO, 0:GOTO9040 

3052 GOSUB280:GOSUB290:GOSUB300: 
GOSUB315:GOSUB1310:C=0:IF LOF(4) 
=0 THEN X=1:GOTO3053 ELSE FOR X= 
L0F(4) TO 1 STEP-1:GET #4,X:IF S 
0$=SO$(0) THEN IV$(0)=IV$:IV=X:G 
OTO3055 ELSE NEXT 

3053 ID$= " " : LOCATE1 04 , 2 : PRINT " La 
st Invoice*: - NONE -"; 

3055 SOUND225 , 2 : LOCATE28 , 22 : X1 =5 
8:Y1=22:PRINT"- Correct Sales Or 
der ? (N/Y)"; :GOSUB200 
3060 SOUND225,2:IF I$<> M Y" AND I 
$<>"y" THEN IF SW=1 THEN9030 ELS 
E GOSUB276:GOTO3050 

3062 IF ID$>"" THEN Z=VAL(ID$):G 
OSUB1410:FOR C=1 TO 12:IF LE$(C) 
>"" THEN POKE65496,0:GET #5,Z:PO 
KE65497,0:IF VAL(IV$)=IV THEN SQ 
$(C)=SQ$:SX$(C)=SX$:TH$(C)=TH$:G 
0SUB306:Z=Z+1 :IF Z<=LOF(5) THEN 
NEXT 

3063 LOCATE103,2:PRINT"Last Invo 



ice#; "IV$; :GOSUB350:C=0'*** do 
not combine 

3064 FOR X=1 TO 1 2 : SQ$ ( X ) = *'": SE$ 
(X)="":SX$(X)=" " :NEXT:SC=0 

3065 IF C>0 THEN F$=STR$ ( C ) : GOTO 
3070 ELSE LOCATE14,22:SOUND225, 1 
:PRINT"- INPUT: Line Number To E 
nter Ship Info ? " ; : F$=" " : X1 =56 : 
X2=56:Y1=22:LN=0:LN(1 )=2:GOSUB10 
0 

3070 C=VAL(F$):IF C>13 THEN3075 
ELSE IF LE$(C)="" OR F$="" THEN3 
075 ELSE POKE&HFF9F, 175: LOCATE! 2 
5 , C+9 : PRINTRIGHT$ ( " " + F$ , 2 ) : GOTO 
3085 

3075 SOUND25,2:C=0:GOTO3065 
3080 IF TH$>"" THEN TH$(C)=TH$ 
3085 LOCATE14,22:PRINTSTRING$(42 
,32); :LOCATE86, 23: PRINT"- INPUT: 
Shipped Quantity or L/R Arrows" 
; :X1=83:X2=83:Y1=C+9:LN=0:LN(1 )= 
4 

3090 GOSUB200:IF I$=CHR$(8) THEN 
POKE&HFF9F ,128: GOTO3090 ELSE IF 
I$=CHR$(9) THEN POKE&HFF9F ,175: 

GOTO3090 ELSE F$=I$:IF VAL(F$)<1 
THEN F$="0" 

3095 IF VAL(F$)<1 THEN SQ$(C)="0 

":PRINTUSING"####";0; ELSE PRINT 
" ; :F1$=F$:X1=84:X2=83:LN(1 ) 

=4:LOCATE111,23:PRINT" 

" ; :LOCATE83,Y1 :PRINTUSING"* 

% " ; F 1 $ ; : GOSUB 1 00 : SQ$ ( C ) = F$ : LOCAT 

E83 , C+9 : PRINTUSING"####" ; VAL( F$ ) 

3 1 00 X$=TG$ ( 2 )+TG$ ( 3 )+ "/ " : LOCATE 
95,23:PRINT"Ship Date. (Only mm/ 
dd needed)"; :F$=SE$(0):X1=90:X2= 
90 : Y1 =C+9 : LN=0 : LN( 1 ) =8 : X 1 =X 1 +LEN 
(SE$(C) ) :GOSUB100:LN=LEN(F$) :IF 
LN<5 THEN3100 ELSE IF LN=5 THEN 
SE$(C)=F$+"/89" ELSE SE$(C)=F$ 
3105 F$=RIGHT$(F$,3) :IF LEFT$(F$ 
,1 )<>"/" THEN3100 ELSE LOCATE90, 
C+9:PRINTSE$(C); : SE$(0 )=SE$(C ) 
3110 TH$=TH$(C):TH$(C)=STR$(VAL( 
TH$)+VAL(SQ$(C) )) :BO=VAL(QT$(C)) 
-VAL(TH$(C)):IF BO<=0 THEN BO$(C 
) = " ELSE BO$(C)=STR$(BO) 

3115 LOCATE101 , C+9 : PRINTUSING"* 

% " ; BO$ ( C ) ; : LOCATE 1 1 7 , C+9 : PRINTU 
SING"####" ; VAL(TH$(C) ) ; 
3120 X$=X$+ " . " : LOCATE95 , 23 : PRINT 
"Shipping Expense. "TS$;:X1=107 
:GOSUB200:IF ASC(I$)=13 THEN3120 

ELSE F$=I$:LN(1 )=6 : PRINTUSING"* 
%";F$; :X1=108:X2=107:GOSUB10 
0:F$=F$+" .":IF INSTR( F$ , " . " )>4 T 
HEN SOUND25,2:GOTO3120 
3125 SX$(C)=LEFT$(F$,LEN(F$)-1 ): 
F=VAL ( F$ ) : LOCATE1 07 , Y1 : PRINTUSIN 
G"###.##" ;F; :SX=SX+F 
3130 LOCATE88,23:PRINT"Line Corr 
ect ?, (N/Y) ";:X1=110:X2= 
X1 :Y1=23:SOUND225,1 :GOSUB200:IF 
I$="Y" OR I$="y" THEN3135 ELSE T 
H$ ( C ) =TH$ : SC=0 : F$= " " : GOTO3065 
3135 LOCATE88,23:PRINT"Ship Anot 
her Line ?,(N/Y) " ; :X1=1 14:Y1=23 
: S0UND225 , 2 : GOSUB200 : IF I$<> "Y" 
AND I$<>"y" THEN3145 ELSE POKE&H 
FF9F , 1 28 : C=0 : GOTO3065 
3145 C=C+1:F$=STR$(L0F(4)+1):F$= 
RIGHT$( F$ , LEN( F$ )-1 ) : F$="0000000 
"+F$+"P": IV$(0)=RIGHT$(F$,8):LOC 
ATE103,2:PRINT" Invoice*: " 

IV$(0) 

3150 FOR X=1 TO 12:IF SQ$(X)="" 
THEN LOCATE82 , X+9 : PRINT" "P 



I$" "PI$" "PI$" 

"PI$" "; 
3165 NEXT:GOSUB350:LOCATE88,23:P 
RINT "COMMIT INVOICE ? ,(N/YES 
)"; :SOUND225,1 :F$=" " :X1 =105 : X2=X 
1 :Y1=23:LOCATEX1 , 23 : LN=0 : LN( 1 ) = 3 
:GOSUB50:IF F$="YES" OR F$="yes" 
THEN3170 ELSE9040 

3170 IS$( 1 )=RIGHT$(IV$(0) , 1 ) :SO$ 
(1 )=SO$(0):X=LOF(5)+1 :ID$(1 )=STR 
$(X):GOSUB1310:GOSUB1320:GOSUB13 
30:IV$(1 )=IV$(0):FOR X=1 TO 12:1 
F LE$(X)="" THEN3180 

3171 SQ$(1)=SQ$(X):SE$(1)=SE$(X) 
:SX$(1 )=SX$(X):TH$(1 )=TH$(X):GOS 
UB 1 4 1 0 : GOSUB1 420: GOSUB1 430 : NEXT 
3180 GOSUB1 110: LSET TA$="Invoice 

": GOSUB 1 130: FOR X=0 TO 12:TH$(X 
) = " " : SQ$ ( X ) = " " : NEXT : CS=0 : : GOTO90 
40 

3999 EXEC44539:STOP 

4000 '*** 

4010 '*** Field Display *** 
4020 '*** 

4035 LOCATE27,23:SOUND224,1 :X1=5 
7:Y1=23:IF SW=1 THEN4050 ELSE PR 
INT"- Correct Sales Order ? (N/Y 
)"; :GOSUB200 

4040 SOUND225,2:IF I$<>"Y" AND I 
$<>"y" THEN IF SW=1 THEN9030 ELS 
E GOSUB276:GOTO2031 
4050 LOCATE 18, 23: PRINT"- L/R Arr 
ow, or Press Any Key to Continue 
. " ; :X1=60:Y1=23:SOUND224, 1 
4060 GOSUB200:IF I$=CHR$(8) THEN 
POKE&HFF9F,128:GOTO4060 ELSE IF 
I$=CHR$(9) THEN POKE&HFF9F ,175: 
GOTO4060 ELSE CLS : SOUND225 , 2 : RET 
URN 

4999 EXEC44539.-STOP 

6030 GOTO9040'*** next issue 

7000 '*** 

7010 '*** Hints *** 
7020 '*** 

7030 WIDTH80:GOSUB490:LOCATE35,0 
:ATTR0,0,U:PRINT"- HINTS - " ; : ATT 
R0,0: LOCATEO, 1 : PRINT" " : LOCATES, 2 
: PR I NT " GENERAL " ; : ATTRO , 0 : PRINT" : 
": PRINT: PRINT" -The oper 

ator is often requested to make 
a Yes/No choice, " 
7035 PRINTTS$; "noted by (Y/N) or 

(N/Y). The first letter, N or 
Y, is the" 

7040 PRINTTS$; "default choice an 
d will work with any key. The s 
econd":PRINTTS$;" letter must be 
pressed di recti y . " : PRINT : PRINT" 

-Upon an irreversible ch 
oice, the operator will be asked 

to" : PRINTTS$; "spel 1 the choice; 

such as, (N/YES)." 
7050 PRINT: PRINT" -Menu 
items 3 through 8 are reserved f 
or use with later" :PRINTTS$; "rev 
isions. " 

7060 PRINT: PRINT: PRINT " " ;:A 

TTRO , 0 , U : PRINT" INQUIRE" ; : ATTRO , 0 
: PRINT" :": PRINT : PRINT" 
ENTER an Invoice before choosing 
INQUIRE, #2; otherwise an" :PRIN 
TTS$; "Error will result. " :GOSUB7 
998 

7070 PRINT : PRINT : PRINT" 
-INQUIRE searches on lowercase"; 
7080 PRINT" and uppercase letter 
s separately. ":PRINTTS$; "If you 
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Glad You Asked . . ." 




Robert Gault 



There are standards for TVs and mon- 
itors. Because of these standards, you can 
safely buy any monitor and be sure that the 
requirements of the composite or TTL-RGB 
inputs will match your computer. It seems, 
however, that this is not the case for 
analogue RGB. 

Have I got your attention? The Coco 3 is 
analogue RGB after all. Yes, you may have 
read about custom cables and positive, 
negative, or composite sync pulses; that's 
not what I mean. Have you ever seen any- 
thing in print about signal size? 

This became important to me when I 
started considering the possibilities of 
the RASCAN 4096 color mode. In fact, I had 
been having enough problems with the color 
settings in the control function of Multi- 
View to wonder if my monitor could handle 
the full 64 colors of the CoCo , much less 
4096 colors. I just could not see the vari- 
ety of colors I should have. Many colors 
seemed to be identical. 

I currently use a Magnavox multisync 
monitor, the 8CM873, with my Coco 3. This 
monitor has had excellent reviews and, 
better still, I had been able to buy it at 
a big discount. Everything seemed fine un- 
til I tried for a wide range of on screen 
colors . 

I wish I could tell you what to do for a 
wide variety of monitors (which are good 
and how to fix the bad ones) but I don't 
have the information. Still, chances are 
that your RGB monitor will be the popular 
8CM515 (the baby brother of the 8CM873) so 
keep reading. 

Run the test program given below. This 
test is designed to cause maximum diffi- 
culty for a monitor's contrast and color 
separation ability and you may need to set 
the brightness and contrast controls just 
right for success. With the test program 
and the following as an example, you should 
be able to adjust your own unit if there is 
a need. 

With either a white or black background 
you should see, on the first screen, 9 
different colors and, on the second screen, 
the low level colors should at least be 
visible. If you can easily see all colors 
of both screens against a black background 
but not against a white background, then 
your Coco and RGB monitor may not be fully 
compatible. The third screen, with 7 lum- 
inance levels, will show up any problems 



with contrast. There should be no change in 
the contrast panel as most of the screen 
changes from black to white, A decrease in 
brightness of the dark grays or any other 
change will indicate an overloading prob- 
lem . 

The Coco 3 is designed to output at the 
RGB lines, a positive video signal of .8 to 
2.0 volts DC into a 75 ohm load. The 
circuit is a simple transistor voltage fol- 
lower biased into the linear region with no 
provision for adjustment. My Magnavox 
monitor (I bought the service manual) seems 
to require an RGB input signal of between 
.3 to .65 volts peak to peak. (Jim Snider, 
of J&L's CoCo Corner BBS, tells me that the 
popular 8CM515 is similar; requiring .7 
volts p-p. ) Coco is sending 2,0 minus .8 
for 1.2 volts p-p. This is 2 to 4 times too 
much signal! 

The result is that with a mostly white 
screen, these monitor's luminance automatic 
gain controls can be driven into limiting. 
With the 8CM873's controls set for minimum 
contrast and brightness, clipping occurred 
under most conditions and color separation 
was marginal. Even the monitor's internal 
sub-brightness and sub-contrast controls 
were not able to correct the problem. The 
8CM515 is more resistant to overloading 
(probably different circuitry), but still 
had some problems. 

With correct signal matching, the 
relative brightness of a picture will not 
change the values of minimum or maximum 
brightness set by the brightness and con- 
trast controls. Brightness limiting does 
cause such a change which is perceived by 
the eye as a change in contrast and loss of 
color discrimination. 

My solution, which is effective if not 
ideal, is to add resistance to the con- 
necting cable to reduce the maximum signal 
to about .4 volts p-p thus matching the 
requirements of my monitor. This was done 
by inserting a 150 ohm resistor in each of 
the R, G, and B cable leads (see diagram.) 
If you have the same problem, you will need 
to determine, by trial and error, if this 
will work for you and what value resistor 
to use for your own monitor. Make sure that 
the resistors are matched (use an ohmmeter) 
or that they are of at least 2% tolerance. 
You may change your monitors color balance 
otherwise . 

Continued On 43 
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One nice feature of this fix is that you 
don't need to open either your Coco or your 
monitor. 

The results of the cable modification 
have been checked both in use and with an 
oscilloscope and no problems of any kind 
have been found with the 8CM873 monitor. 
The color separation and contrast of the 
8CM873 are now as excellent as they should 
have been. The 3CM515, Jim reports, now has 
better coicr quality. Jim also used 150 
ohms, but 100 ohms may be better for the 

If you have questions, you can write to 
zhe magazine or call me at my favorite Coco 

■; =CK E5HFFD9 , 0 

~; ON 3RK GOTO 780: ON ERR GOTO 7 
3C DIM MS$(24) 

4.Q ? **************************** 
x***** 

50 ' SETUP GRAPHIC BUFFERS 
§0 ***************************** 

^0 A= 108: FOR I=1T07:HBUFF I,A:NE 
XT 

30 GOSUB640:GOSUB500 
30 '**************************** 

100 DATA 38,36,37,22,18,19,13,9, 



®nly TUBES, J&L's CoCo Corner, Taylor, 
Michigan, ( 313 )-292-4713 , 300-1200-2400 
baud 8/N/l* Leave a message for Robert 
Gault #20. 




This program is available on ClipDisk. 
A single issue is just $9.95, a full year 
is only S49.95. Phone orders are 
accepted at (716) 679-0126 - please 
have your credit card ready. You may 
also order by mail by enclosing your 



check or money order to CoCo Clipboard Magazine. 
Our address is 3742 US. 20, Box 3, Fredonia, NY 
14063 U.S.A. Slightly higher prices for overseas orders. 



1 1 

1 10 DATA 5,4,4,6,2,2,3,1,1 
1 20 1 *************************** 
**************** 

130 ' TEXT STRINGS ARE NUMBERED 
FOR EASY EDITING 

1 40 ' *************************** 

150 DATA 1,SET BLACK LEVEL SO TH 
AT BACKGROUND, 2, CAN JUST NOT BE 
SEEN, 3, THEN 

160 DATA 4, MAKE YOUR SELECTIONS 
,0 - BLACK BACKGROUND ,6,1 - WHIT 
E "",7, MAXIMUM, 8, MINIMUM 
170 DATA 9, RED, 10 .GREEN, 1 1 , BLUE , 



12,MINIMUM COLOR, 13, SHIFT, 14,ADJ 
UST CONTRAST, 15, IF NEEDED 
180 DATA 16, HIT ANY KEY, 17, TO, 18 
, CONTINUE ,19,2 - CONTRAST ADJUST 
PANEL 

190 DATA 20, ADJUST FOR BEST PICT 
URE; THEN HIT ANY KEY TO CONTINU 
E 

200 DATA 21, WATCH THE PANEL AS S 
CREEN FILLS WITH WHITE, 22, IF GRA 
YS GET DARKER YOU HAVE TROUBLE! 
210 DATA 22, YOU MAY WANT TO COVE 
R THE RIGHT PORTION OF SCREEN WI 

Continued On 44 



□□□□□□□□□□□□□□□□□□□□□ 

When Tandy Introduced OS- 9 Level 2, 
you bought it. Now, no more excuses. 



START 




An Enjoyable, Hands-On Guide To OS- 9 Level 2 
On The Color Compuer 3 
$32.95 + $2.50 P&H. US funds 
Includes disk. Over 280 pages of lessons, essays & tips. 
Requires 2 drives, 512K. 80-column monitor. 

Turbocharge your OS-9 system! 

THE GO L D B E KG 
U T I L I T I E S 

Power-packed disk with tutorial- style documentation! 

Save disk space (Pk)QFind lost Tiles (Grep)QCopy 
multiple files (Zcopy)QSort long lists (Sort)Qciear 
screen with ease (Cls)QConvert between hex, decimal 
and binary (Val)Q FIFTEEN COMMANDS IN ALL! 
$24.95 + $2.50 S&H. 

Kenneth-Leigh Enterprises 

1840 Biltmore Street NW Suite 10 
Washington DC 20009 202/232-4246 
Personal check & money order welcome. 

□□□□□□□□□□□□□□□□□□□□□□ 



If you've never heard what a CoCo 
and a M/Di synthesizer can do 
together, you're in for a reai treat! 

Your CoCo can act as a sophisticated music 
controller. Use it to compose music on a graphics 
screen that looks just like 
printed music, and then play 
it on your synthesizer for 
incredible 8-part music, Or 
use it as a ten track tape 
recorder; advanced program- 
ming then lets you edit, 
modify, and perfect your per- 
formance as much as you 
wish. 

• Lyra (an 8 part MIDI music composition program using 
puliodwn menus and icons; a great way to enjoy all the 
music you could never hope to play!) $59.95 

• Lyra Lybrary (a 16 disk collection of music transcriptions 
for Lyra) • $14.95 each disk 

■• The Lyra Companion (a 100 page book packed with tips 
on using Lyra) $9.95 

• CoCo MIDI 3 (a complete professional quality MIDI 
sequencer) $150.00 

• FBEDIT (Edit and create new voices for the FB-01) $29.95 





Rulaford Research 

P.O. Box 143 

Imperial Beach. CA 92032 
(619) 690-3648 {.evenings 6-10 PT) 
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have input a customer name using 
lowercase, be sure to use":PRIN 
TTS$; "lowercase during INQUIRY. 

7081 PRINT: PRINT: PRINT" ";:A 
TTR0,0,U: PRINT" Invoice Number"; : 
ATTRO , 0 : PR I NT " : " : PR I NT : PR I NT " 

-Note the last character o 
f the invoice number 1s a letter 
. 'P'^PRINTTSf; "denotes the in 
voice is 'oPen', not paid; would 
have used a 'OV'rPRINTT 

7082 PRINT" but it looks to much 
like a zero. When the invoice h 
as been" :PRINTTS$j" paid in full 
the 'P' will be changed to a 9 C' 
. It denotes" :PRINTTS$; "Closed. 

:QOSUB7998 

7997 GOTO9040 

7998 LOCATE27,23:PRINT"Press Any 
-Key to continue. ";: EXEC44539:CL 
S : LOCATE35 , 0 : ATTRO , 0 , U : PRINT"- H 
INTS - " ; : LOCATEO , 1 : ATTRO , 0 : RETUR 
N 

7999 EXEC44539:STOP 
9000 ' *** 

9010 '*** Setup and Menu *** 
9020 **** 

9030 PCLEAR1 : CLEAR1 999 : FILES 5,7 
50:DIM CS$(101 ),CN$(101 ),RN$(101 
) , LE$( 1 3 ) , IN$( 1 2) , DS$( 1 2 ) ,QT$( 1 2 
) , UT$ ( 1 2 ) , DU$ (12), ED$ (12), NB$ ( 1 3 
),IV$(12),SQ$(12),SE$(12),SX$(12 
) , TH$ (12) :CLS1 : POKE&HFF94 , 2 
9035 TG$(1)=CHR$(1)+CHR$(4)+CHR$ 
( 8 ) +CHR$ ( 9 ) +CHR$ (10) +CHR$ (12) +CH 
R$ ( 1 3 ) +CHR$ (21) +CHR$ (189) +CHR$ ( 2 
U , 



14) :TG$(2)=" 123456789" :TG$(3)="0 
" +CHR$ ( 8 ) +CHR$ (21) +CHR$ (13): LD$ = 
CHR$(127):SD$=" - ":TS$= M 

" : PI$-CHR$ ( 1 24 ) : GOSUB1 01 1 1 
9040 CLOSE :CT=0:C=0:F$="":CN$(1 ) 
= " " : CS$ ( 1 ) = " " : SO$ (1 ) = " " : DT$ ( 1 ) = " 
" :CP$( 1 ) = "" : DD$( 1 )="" :TA$( 1 )=" " : 
FB$(1)=" ":SU$(1 )="":TX$(1 )="":GT 
$ ( 1 ) = " " : SU$= " " : TX$= " " : WIDTH40 : PR 
INT"Ac Rec Menu - CCBMS -";: 
LOCATE34 , 0 : PRINT"ACCREC" ; 
9045 FOR X=1 TO 1 2 : LE$( X )=" " : IN$ 
(X)=" ":DS$(X)=" ":QT$(X)=" ":UT$(X 
) = " ":DU$(X)=" ":ED$(X)=" ":NB$(X)= 
" ":NEXTX 

9050 LOCATE8,3:PRINT"1 . SHIP/INV 
OICE Sales Order.":LOCATE8,5:PRI 
NT"2. INQUIRE, Ship Status. ":LOC 
ATE8, 7: PRINT" 3. ": LOCATES, 9: PRINT 
"4 . " : LOCATE8 , 1 1 : PRINT "5 . " : LOCATE 
8 , 1 3 : PR I NT "6 . " : LOCATE8 , 1 5 : PRINT" 
7. 

9060 LOCATE8,17:PRINT"8. REPORTS 
, Sales Order.": LOCATES, 19: PRINT 
"9. HINTS. ":LOCATE7, 21 :PRINT"F2. 
RETURN to Main Menu. " : LOCATE9, 2 
3: PRINT"- SELECT (1 to 9 or F2) 
" ; : S0UND245 , 1 : X1 =32 : Y1 =23 
9070 LOCATEX1 ,Y1 : ATTRO , 0 , B: PRINT 
""; :I$=INKEY$:IF 1$="" THEN9070 
ELSE ATTRO, 0:ON INSTR( TG$( 2 )+CHR 
$(4),I$)+1 GOTO9070, 3030, 2030, 90 
75,9080,9090,9100,91 10,6030,7030 
,9140 

9075 SOUND224, 2 :GOTO9070 ' ***3 
9080 SOUND224, 1 :GOTO9070'***4 
9090 SOUND224,1 :GOTO9070 ' ***5 
9100 SOUND224, 1 :GOTO9070 , ***6 



9110 S0UND224, 1 : GOTO9070 * ***7 
9140 WIDTH40:CLS:LOCATE10,9:PRIN 
T"- LOADING SYSTEM MENU -":POKE6 
5496 , 0 : RUN"SYSMNU . BAS" 
10000 '*** 

10010 '*** 128 Column Display/Co 
mposite Screen Setup *** 
10020 '*** 

10030 EXEC44539:STOP 

10111 WIDTH80: PALETTE 0,0:PALETT 
E 8,63:POKE&HFF98,4:POKE&HFF99,& 
H75 : POKE&HE045 , 4 : POKE&HE046 , &H75 
: POKE&HFE05 , 24 : POKE&HFE06 , 62 : POK 
E&HFE07 , 0 : POKEAHFF9F ,128: POKE&HF 
E00 , &H20 : POKE&HFEO 1,0: POKE&HFE04 
,128: POKE&HF90A , &H58 : P0KE&HF8EC , 
128:POKE&HF8F4,24:CLS1 :RE 

10112 WIDTH32:PRINT:PRINT" IF YO 
U ARE NOT USING A MONO- CHROM 
E TERMINAL, DELETE 'GOTO 
10111' IN LN9035. IF YOU ARE, 
DELETE 'GOSUB10112' IN LN 10 
111. (PRESS ANY KEY)":EXEC44539 
:RETURN 

11000 '*** 

11010 '*** Easy SAVE *** 
11020 '*** 

11111 POKE65496,0: CLOSE: SAVE "ACC 
REC" : STOP 



* *** 

**** Revision Record *** 
'*** 

12030 '*** None 
*** f 



12000 
12010 
12020 



CoCo 
Clipboard 
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TH PAPER 

220 DATA 23, TO MAKE VIEWING EASI 
ER 

230 FORI=1T018:READ A: NEXT 

240 FOR I=1T024:READ A,MS$(I):NE 

XT 

250 **************************** 

**************** 

260 9 MAIN LOOP 

270 ' *************************** 
**************** 

280 PALETTE0,0: PALETTE 1,63: REST 
ORE 

290 HSCREEN2: HCLSO :HC0L0R1 ,0:HPR 
INT( 1 ,0) ,MS$(1 ) :HPRINT(9, 1 ) ,MS$( 

2) 

300 HPRINT( 16,5) , MS$ ( 3 ) :HPRINT( 
9, 10) ,MS$(4) :HPRINT(8,20) ,MS$(5) 
:HPRINT(8,21 ) , MS$( 6 ) : HPRINT( 8 , 22 
),MS$(19) 

310 EXEC &HADFB : A$=INKEY$ : IFA$< " 

0' OR A$>"2"THEN310 

320 IFA$="2"THEN680 

330 IF A$="0" THEN PALETTEO , 63 : P 

ALETTE1 , 0 ELSE PALETTEO , 0 : PALETT 

E1 ,63 

340 ' ************ 

350 * COLOR PANELS 

360 ' ************ 

370 GOSUB420:HPRINT(5,0),MS$(7): 

GOSUB400 : EXEC&HADFB 

380 GOSUB420:HPRINT(5,0),MS$(8): 

GOSUB400 : EXEC&HADFB : GOT0280 

390 **************************** 

**************** 

400 FORJ=0TO2:FOR I=0TO2 : HCOLORJ 



*3+I+2, 1 :HLINE( 1 40 , 22*1+ J*64 )- ( 1 
60,21 +22*1 +J*64 ) , PSET , BF : NEXTI , J 
: RETURN 

410 **************************** 
**************** 

420 HCOLOR0,0:K=0:HCLS1 :FORI=2TO 
1 0 : READ CL : HPRINT ( 20 , 3*K ) , STR$ ( C 
L): PALETTE I , CL : K=K+1 : NEXT 
430 HPRINT(5,3) ,MS$(9) :HPRINT(5, 
11 ),MS$(10):HPRINT(5,19) ,MS$(11 ) 
440 HPRINT(25,0),MS$(12):HPRINT( 
28,1 ),MS$(13) 

450 HPRINT(25,10),MS$(14):HPRINT 
(25,11 ),MS$(15) 

460 HPRINT(25,18),MS$(16):HPRINT 
(28,19),MS$(17) :HPRINT(25,20),M 
S$(18):RETURN 

470 '*************************** 
*************** 

480 * SETUP FOR REPEAT VALUES 
490 '*************************** 

500 XA=12:YA=26:CA=1 

510 **************************** 

**************** 

520 'MAKE 7 SHADE OF GRAY PATCHE 
S FOR FUTURE USE 

530 **************************** 
**************** 

540 HGET(0,0)-(12,26) , 1 

550 HCOLOR1 , 0 : GOSUB770 : HGET( 8 , 0 ) 

-(20, 26), 2 

560 HLINE(32,0)-(48,26) ,PSET,BF: 

HGET(32,0)-(44,26),3 

570 HLINE(6,0)-(24,26) ,PSET,BF:H 

COLOR2 , 0 : GOSU67 70 : HGET ( 8 , 0 ) - ( 20 , 

26), 4 

580 HPUT(8,0)-(20,26) , 1 ,PSET:HCO 
LOR2,0:HLINE(6,0)-(24,26),PSET,B 



F:HGET(8,0)-(20,26),5 

590 HCOLOR3 , 0 : GOSUB7 70 : HGET (8,0) 

-(20,26) ,6 

600 HLINE(6,0)-(24,26) ,PSET,BF:H 

GET ( 8 , 0 )- ( 20 , 26 ) , 7 : RETURN 

610 '*************************** 

*************** 

620 ' SETUP 640X192 GRAPHICS IN S 

HADES OF GRAY RGB VALUES 

630 **************************** 

*************** 

640 PALETTEO, 0:PALETTE1 ,7 : PALETT 
E2 , 56 : PALETTE 3 , 63 : HSCREEN4 : HCLSO 
: RETURN 

650 **************************** 
*************** 

660 'PREPARE SPECIAL CONTRAST PA 
TTERN 

670 '*************************** 
*************** 

680 GOSUB640 : HCLSO : HCOLOR3 , 0 : X=0 
: FORY=0TO1 91 STEP26 : FORC=0TO6 
690 HPUT(X+C*XA,Y)-(X+XA+C*XA,Y+ 
YA) ,C+CA, PSET: NEXT C,Y:GOSUB730 
700 EXEC&HADFB:HLINE(92,0)-(639, 
191 ) ,PSET,BF 

710 HCOLOR0,0:FORI=0TO2:HPRINT(3 
0,1+20), MS$ (16+1): NEXT : SOUND220 , 
1 

720 EXEC&HADFB: GOT0280 

730 FORI=OT04:HPRINT(14,I+I),MS$ 

(20+1): NEXT: RETURN 

740 **************************** 

***************** 

750 'SET ALTERNATE PIXELS 

760 **************************** 

Continued On 46 
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"Downtime" 

Rush Caley 



( Editor ' s Note: For those of you suffering 
through the last dog days of summer or an 
overly warm Indan Summer please note that 
Rush wrote this article back when the snow 
was still falling in the great Northwest*) 

MAPPING COCO'S TRUE VALUE 

Cartographers take note! Port Orchard is 
finally deserving of a place on the real 
map. Finally after three years here in sol- 
itude, we actually have a CoCo Users Group. 
Right, an actual club that meets at the 
same place every third Tuesday of the 
month. I have been astounded at the variety 
of people and talents that make up the 
group. I can guarantee that in this neck of 
the woods the CoCo is very much alive. We 
have members who are totally new to the 
CoCo Community, and some old timers who 
have been around forever. Special thanks go 
to a gentleman named George from the Radio 
Shack Computer Center over in Bremerton* 
He's the one that got it started. 

One thing I enjoy about a club is that 
the members have such a wide variety of in- 
terests. There's hardware hackers, pro- 
grammers, graphics specialists, modem junk- 
ies, gamesters, and application users like 
myself. The meetings are informative and 
focus on the number of uses that people 
find for their computers. This really 
zeroes in on one of the topics I'd like to 
discuss this month. What do you REALLY DO 
with your computer? How is it put to use? 
What is the focus? Entertainment, relax- 
ation, education, art, music, scientific 
endeavor? What do you REALLY DO with your 
CoCo? No... don't answer that fast. What do 
you REALLY DO with it? 

So I decided I'd make a list. Now what 
goes on the list is solely determined by 
the primary role you have assigned to the 
computer. For me, the computer is a tool 
which provides assistance in the completion 
of everyday tasks. For my list, I chose 
only those uses in which: 

1 . ) The task was one which I had always 
done prior to having the computer and 
accomplished by other means. 

2. ) The computer has either made the 
task easier, or enhanced and enlarged it 
so that it became more useful. 



3- ) The task is performed on a regular 
and continuing basis - not merely a 
one time application. 

So following is my list and the cor- 
responding CoCo programs I use to ac- 
complish the application: 

1. ) Most of my personal and business ac- 
counting has been simplified and become 
extremely effective due to QUIKPRO+ II by 
ICR Futuresoft. It is a program generator 
that lets you design input screens for data 
files and then actually writes the code. 
With QUIKPRO, I wrote an Income / Expense 
program that simultaneously tracks my 3 
checking accounts and provides all the 
necessary reports. I also wrote a Sales 
Order/Invoice program which stores sales 
information and prints invoices. Finally, a 
General Ledger program rounds out the ac- 
counting tasks. 

2. ) Because of its many features, 
versatility, and ease of use, I still use 
WORKBASE ACCOUNTS RECEIVABLE for my com- 
puter service business. 

3. ) For maintaining my client list, I use 
Randy Krippner's fabulous SALES CLIENT 
MANAGEMENT SYSTEM. This program maintains 
demographic data, sales data, and ap- 
pointment schedules. There is no other 
program currently on the CoCo market for 
this purpose; and it is a must for anyone 
in the business of sales who calls on cus- 
tomers on a regular basis. 

4. ) For cataloging my video collection, I 
use Randy Krippner's PERSONAL VIDEO DATA 
LIBRARY. 

5. ) Bob van der Poel ' s ULTRA LABEL MAKER 
cannot be beat when it comes to customized 
labels. For often used mailing lables, disk 
labels, video tape labels, and much more, 
this program gets a real workout at our 
house . 

6. ) I read alot. And for cataloging mag- 
azine articles, Bob van der Poel once again 
has the utility that does it all. His 
MAGAZINE INDEX SYSTEM provides access to 
titles, sources, and topics at lightning 
speed . 
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7.) There's a plethora of Name and Address 
tracking programs for the CoCo. Many of 
them are truly elegant. But once again, I 
went to QUIKPRO+ II and designed my own 
personal address and phone list program. 



8.) For maintaining 
all my programs, I 
out many years ago 
always found it to 
type of utility. 



a catalog of disks and 
use a program that came 
For some reason, I've 
be my favorite for this 
It's called WHERE'S-IT 



written by 
Software . 



Ed Laidlaw formerly of Jarb 



9. ) I get ideas at the strangest times. 
While at work, in the shower, in the middle 
of the night, and so on. For years, I used 
to keep an idea box. Whenever I got an 
idea, I didn't want to forget it. So I'd 
write the idea on whatever was handy and 
stick it in the idea box. On Friday night, 
I'd and examine all the ideas. Some of them 
were impractical, and I'd throw them away. 
If the idea still sounded like it was worth 
pursuing, I'd make it a task or project. 
Today, a wonderful program called JULIE THE 
MOUSE replaces the box. It is a very tidy 
mouse-based freeform database. At the click 
of the mouse I can retrieve all related 
notes on a given topic and add to, revise, 
or delete them. 

10. ) Last, but certainly not the least, 
comes word processing. This is one of the 
busiest applications for most CoCo users. 
For me, it occupies many hours a week. The 
word processor I use is BUSINESS WRITER by 
TCE programs. You may remember my review in 
the last issue. Although I have used it 
almost exclusively since 1986, it would be 
unfair if I did not also mention TELEWRITER 
64 with ULTRA-TELEPATCH. Howard Cohen's 
blockbuster word spinner, later enhanced by 
Bob van der Poel , served me faithfully for 
5 years. 

So there's my "top ten". Obviously, 
there are many many other things I do with 
the CoCo and I use a variety of programs. 
But those are more sporadic. Apply the 
ground rules and try making a list for 
yourself. You may find it very revealing. 
When you finish, send the list to me and 
I'll forward the most interesting ones to 
Ted for publishing in the magazine. 

THAT OTHER PLANET 

You know there are real mysteries in 
life. Where does the other sock go? The one 
that goes into the wash machine but never 
comes out? Also, where do architects live? 
I've never seen a house designed by an 
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770 FORY=0TO26:FORX=6TO24STEP2:H 
SET(X+(Y AND CA),Y):NEXT X , Y : RET 
URN 

780 P0KE&HFFD8 , 0 : RGB : WIDTH80 : CLS 
5 

790 ' *************************** 
****************** 

800 ' BREAK/ERROR EXIT 

810 **************************** 

****************** 

820 A=ERN0: I FNOT ( A )THENPRINT" ERR 
OR #";A; " IN LINE " ; ERLIN 
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architect that any real family could live 
in. I believe there is a special planet 
where all these people congregate. They all 
wear one sock-from you know where- and they 
are hoarding thousands of sets of keys and 
pairs of sunglasses. In their spare time 
they mostly write silly books. Anyway, I 
think the environmental scientists have 
moved there too. They certainly don't live 
here anymore. 

I like to follow the rules so I avoid 
jail . I don't want to leave this world 
having a bunch of jackasses making money 
off me selling tee-shirts and funny tie- 
clips and chanting such phrases as "Let's 
fire up Ole Sparky" . When they told us 
about ozone, I quit using deodorants and 
hairsprays with f lourocarbons . During the 
gas crunch of '73, I sold my Impala and 
bought a Pinto. 

For the last few 
nothing but all this 
GREENHOUSE EFFECT. Now 
"burning bans" saying 
woodstove. They've even 
around and enforce it. 



years I've heard 
chatter about the 
they're putting out 
we can't use our 
got people that go 
I have nightmares of 



being ripped out of my house by a State 
"Air Pig", driven to a local nursery, and 
forced to spend 3 days in a greenhouse to 
"get my mind right". As I write this, I 
have missed 2 days of work because I can't 
drive in all the snow and ice. It's 15 
degrees outside and it'll be -5 degrees 
tonight. Hey, this is Washington State! So 
mu*ch for the global warming trend. 
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P.O. Box 58342 
Renton, WA 98058 




TOLL-FREE U.S. ORDER HOTLINE: 
1-800- ADS- AHOY 1-800-237-2409 

TECHNICAL SUPPORT & 
INTERNATIONAL ORDERS: 
206-235-0917 



WASHINGTON RESIDENTS PLEASE ADD 
8.1% SALES TAX. Minimum U.S. shipping 
$3.00; $4.00 to Canada. $2.75 U.S. COD 
charge. Please allow 2 weeks for delivery. 
U.S. overnight or 2-day delivery available 
for In-stock items. Software upgrades $5.00 
each (free with orders over $25). 



QuarterMeg ^^TWJsT 




Include* 4 memory chip* at our currant reference 
price. Dub to fluctuating market condition*, price* 
are eubject to change without notice. 



A New Breed of CoCo 3 Memory Expansion 
Veee existing QqCq 3 64K x 4 memory c/f/p?/ 

Our revolutionary circuit combines four 64K x 4 memory 
chips on the QuarterMeg board with the four identical 
memory chips in the 128K CoCo 3 to double your OS9 and 
BASIC * memory^p 256K. Piggy-back upgrades to 512KI 




Zero-K QuarterMeg (no chips) - $39.95 

Also available: Standard QuarterMeg (4 
chips), Full QuarterMeg (8 chips) & Fat 
QuarterMeg (51 2K - 16 chips) 
»> MARKET PRICE «< 




File System 
Repack 




Your OS9 disks are suffering from a bad case of 
fragmentation, and Qj>29.95 } we've got the cure. 

Did you know that OS9 gets less efficient (and just a little slower) every time you use it? 
It's true! As you modify or create files, OS9 breaks them up into smaller and smaller 
pieces scattered randomly across your disks. Smaller pieces mean slower disk access. 

Our new File System Repack program examines each file on your hard or floppy disk. It 
reverses the effects of fragmentation by gathering up and combining pieces of files. In 
addition to the immediate benefit of a faster system, our program also reduces disk 
head movement - in the long term, decreasing wear on your system's mechanical parts. 



Real BASIC for OS9! 



R.S.B. V1.3 $39.95 



Burke & Burke's R.S.B. software gives you a complete, OS9-compatible 
version of Disk Extended Color BASIC. We've added new software for 
OS9-style graphics, sound, printer, and disk I/O. The BASIC you know 
and love is now running under Level 2 OS9 windows! 

R.S.B. loads and saves files using OS9's file format, so we've also included 
utaitie* to transfer BASIC programs and data files betwen OS9 and BASIC 
disks. Of course, you can't use R.S.B. to run machine language programs, 
and some BASIC commands work slightly differently under R.S.B. 

Requires CoCo 3, 256K RAM, floppy controller with either Tandy Disk 
BASIC or DJSTO CoCo 3 CDOS, and Level 2 OS9. 



CqGq-XT Hard Disk Interfaces 

NO HALT • 1 or 2 hard drives • 30% faster than SASI • Uses PC-type hard 
disk drives & controllers • 5 Meg to 120 Meg per drive • Does not use 
interrupts • Multi-PAK recommended • Includes EZGen boot file editor for 
easy installation ♦ CoCo XT-RTC includes real-time clock 

CoCo XT $69.95 CoCo XT-RTC $99.95 

XT-ROM AUTO-BOOT ROM . . . Automatically boots OS9 from your Burke 
& Burke hard disk at power-up. Use XT-ROM as a convenience, or for 
fail-safe CoCo operation in unattended BBS, home security systems, etc. 

XT-ROM $19.95 ,y hard disk CQble $et $1750 



HYPER-I/O $29.95 

Modifies Disk BASiC to use hard disks (CoCo XT, DISTO, 
LR), RAM disks, & any mix of 35-160 track floppy drives. 
Fully reset protected, 16K EPROM-able. 

HYPER-HI $12.95 

RAM disk and printer spooler add-on for HYPER-I/O. 
Requires 51 2K CoCo 3 and HYPER-l/O. 



HYPER-I/O Utilities $21.95 

Kevin Berner's wildcard copy, delete, 
and file search utilities for HYPER-i/O 

HYPER-I/O Disk Doctor $17.95 

Kevin's second utility package. Find 
bad disk sectors, edit GAT/FAT, etc. 

Both utility packages for $37.95 



EZGen Version 1.06 $19.95 

Powerful OS9 bootfile editor. Change module 
names, add or delete modules, patch bytes, or 
rearrange modules. Works on other files, too. 

fVEHTASCXX $19.95 
Level 2 OS9 scrambled-letter word game for 
1-16 players. Play against the computer's 
_.___15j000 word diet io n nary_or r frie£ds . 25 6 K. 
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KEN-TON ELECTRONICS PRESENTS 



SCSI HARD DRIVES 

1 930 TECHNOLOGY 5Q.OOO MTBF 




Shown w/optm for two CoCo hookup 

20-30-42 Meg. Kits Available. Installs as 
easily as a floppy! 

20 Meg only $436*- 
30 Meg only $476*- 
42 Meg only S527-X- 
-X-Call for you particular system requirements. 

Our drives use the only true industry 
standard SCSI Interface! 

Don't limit yourself to SCSI "Compatibles" 
that don't meet SCSI Specs! 

Mil Spec Quality 



DUAL COMM 

$74 Single 




PACK 

S Dua 



Shown with dual ports /T1 /T2 option 

Exceeds Original Tandy Specs! 
Onboard power up reset! 
Onboard +/- RS-232 Voltages! 
2-6551 ACIA's! 
Ultra Low Power Draw! 
Jumper selectable up to 4 channels! 
2 Independent RS-232 channels! 
OS-9 Compatible! 
Y Cable Compatible 

BO Day Warranty 



SOFTWARE 

OS9 Utilities Ultra Basic $1 9.95 Y-Cables CALL Real Time Clock $29.95 



RGB-DOS $29.95 

Terms: 

Check or M.O. accepted (US Funds only) 

Please add $4.00 for S&H 

Phone Orders are welcomed! 

CALL 1-716-837-9168 (24 hr. order line) 



TO KEN-TON 
ELECTRONICS 

187 GREEN ACRES RD. 
TONAWANDA, MY 14150 
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